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Chapter  1 


INTRODUCTION 

The  Defense  Materials  System  is  defined  by  a body  of 
government  regulations  and  orders  promulgated  under  the 
authority  of  the  Defense  Production  Act  of  1950  to  accomplish 
two  main  purposes:  (l)  to  insure  that  defense  programs  are 
maintained  on  schedule  by  providing  priority  treatment  for 
the  purchase  of  products  and  materials  by  defense  agencies, 
contractors,  subcontractors  and  their  suppliers,  and  (2)  to 
maintain  an  administrative  framework  by  which  the  total 
economic  resources  of  the  United  States  could  be  mobilized 
should  the  need  arise  (4:1-5). 

Although  primary  functional  jurisdiction  for  the 
operation  of  the  Defense  Materials  System  is  maintained  by 
the  Department  of  Commerce,  specific  delegations  of 
functional  authority  have  been  made  to  the  Department  of 
Defense  (DOD)  (6:p.l-3)«  Within  the  DOD,  the  Joint 
Aeronautical  Materials  Activity  (JAMAC)  is  charged  to 
accomplish  the  objectives  of  the  delegations. 

Problem  Statement 

JAMAC 's  responsibilities  include  the  reporting  of 
estimated  materials  requirements  through  the  DOD  to  the 
Federal  Preparedness  Agency,  General  Services  Administration. 
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The  gross  estimates  of  materials  requirements  are  used  by 
the  Federal  Preparedness  Agency  to  establish  set-aside 
portions  of  the  productive  output  of  specific  material 
producers  for  the  exclusive  use  and  procurement  by 
organizational  entities  performing  work  in  support  of 
defense  programs  (4:8-9). 

To  estimate  materials  requirements,  JAMAC  uses 
quarterly  material  estimates  of  selected  defense  contractors. 
The  contractor-prepared  quarterly  estimates  are  of  large 
volume  and  contain  numerous  types  of  information.  Presently, 
JAMAC  essentially  hand  manipulates  all  received  data  to 
arrive  at  gross  totals,  sub-class  material  breakouts,  and 
material  forecasts. 

The  problem  for  research  is  that  there  is  a need  to 
plan  and  design  a management  information  system  that  will 
consolidate  and  synthesize  forecast  material  requirements 
for  JAMAC . 

Justification 

Mr.  W.  Wallace  Wetterling,  Civilian  Administrator, 
JAMAC  (?),  defined  the  need  for  a management  information 
system.  Such  a system  would  ideally  enable  JAMAC  personnel 
to  reduce  the  amount  of  time  expended  performing  essentially 
clerical  tasks  and  pursue  more  productive  and  meaningful 
effort.  To  achieve  this  end,  Mr.  Wetterling  requested  that 
the  feasibility  of  planning  and  designing  a management 
information  system  be  explored  (?). 
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ObJ  ectives 


As  the  definition  of  a management  information  system 
stresses  satisfaction  of  information  requirements  and  the 
system  specification  stage  of  planning  and  design  stresses 
providing  such  information,  it  follows  that  the  objectives 
of  this  effort  should  be  directed  accordingly. 

First,  the  information  needs  and  desired  output  of 
such  a system  must  be  determined  in  order  to  satisfy  the 
management  needs  of  JAMAC.  Second,  a workable  algorithm 
must  be  planned  and  designed  which  is  capable  of  meeting 
the  management  needs  of  JAMAC . Third,  the  algorithm  must 
be  programmed  and  tested  for  effectiveness  and  compatibility 
with  JAMAC' s management  needs. 

Research  Questions 

Given  the  pragmatic  orientation  of  this  research 
effort,  the  appropriate  research  questions  which  must  be 
answered  to  effectively  accomplish  the  stated  objectives 
are : 

1.  What  are  the  specific  desires/requirements  of 
JAMAC  that  must  be  incorporated  in  a management  information 
system? 

2.  Ho v/  can  the  identified  desires/requirements  be 
satisfied  and  incorporated  within  a workable  management 
information  system  algorithm? 

3.  What  are  the  criteria  necessary  to  test  the 
algorithm  for  validity,  effectiveness,  and  compatibility? 
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Overview 


This  study  is  presented  in  four  parts.  They  consist 
of  a literature  review,  a description  of  the  methodology, 
the  results  of  the  research,  and  the  results  of  the  thesis 
effort. 

The  next  chapter  will  review  current  literature 
in  order  to  provide  a background  for  development  of  a 
management  information  system. 
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Chapter  2 


LITERATURE  REVIEW 


Legislation  and 

Implementation 

Subsequent  to  World  War  II  and  the  Korean  War,  in 
recognition  of  the  difficulties  experienced  in  allocating 
resources  between  the  civilian  and  military  sectors  of  the 
national  economy  and  in  mobilizing  the  industrial  capability 
of  the  United  States,  legislative  action  was  undertaken  to 
prevent  reoccurrence  of  similar  problems  in  future  exigent 
periods.  Briefly  stated,  the  Defense  Production  Act  of 
1950  provided  the  President  authority  to  " . . . allocate 
materials  and  facilities  for  the  purpose  of  promoting  the 
national  defense  £4:2].”  The  term  "national  defense"  is 
defined  in  the  Defense  Production  Act  as  " . . . programs 
for  military  and  atomic  energy  production  or  construction, 
military  assistance  to  any  foreign  nation,  stockpiling, 
space,  and  directly  related  activity  [4:2]."  Subsequent 
to  receiving  such  authority,  the  President  delegated 
performance  authority  among  various  agencies  of  the  federal 
government . 

Overall  authority  for  the  direction,  control,  and 
coordination  of  programs  under  the  Defense  Production  Act 
was  delegated  to  the  Director  of  the  Federal  Preparedness 
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Agency,  General  Services  Administration.  Specific 
functional  authority  and  responsibility  were  delegated  to: 

1.  The  Secretary  of  the  Interior  with  respect  to 
petroleum,  gas,  solid  fuels  and  electric  power  (portions 
since  redelegated  to  the  Administrator,  Federal  Energy 
Administration); 

2.  The  Secretary  of  Agriculture  with  respect  to 
food  and  the  domestic  distribution  of  farm  equipment 
and  commercial  fertilizer; 

3*  The  Commissioner  of  the  Interstate  Commerce 
Commission  with  respect  to  certain  limited,  domestic 
transportation  functions;  and 

4.  The  Secretary  of  Commerce  with  respect  to  all 
other  materials  and  facilities  [4:3]. 

The  Secretary  of  Commerce  subsequently  designated 
the  Bureau  of  Domestic  Commerce,  Domestic  and  International 
Business  Administration,  as  having  primary  implementation 
and  maintenance  authority  for  that  authority  delegated  to 
the  Department  of  Commerce.  Within  the  Bureau  of  Domestic 
Commerce,  implementation  was  accomplished  by  creating  a 
body  of  regulations  and  orders  entitled  the  Defense 
Priorities  System  and  the  Defense  Materials  System.  The 
systems  exercise  control  over  industrial  production  and 
the  allocation  of  designated  materials  (4:1-3). 

Currently,  the  systems  are  applicable  to  thirty- 
seven  programs  of  the 

. . . Department  of  Defense  (DOD) , Atomic  Energy 
Programs  of  the  Energy  Research  and  Development  Agency 
(ERDA) , the  Department  of  Commerce  (DOC) , the  Department 
of  Interior  (DOI) , and  certain  other  agencies  referred 
to  as  ’associated  agencies  of  the  Department  of  Defense' 
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having  responsibilities  for  specific  defense-related 
programs  [4 :5]*^ 

As  such,  any  government  or  non- government  organi- 
zation engaged  in  the  performance  of  a defense  program  is 
subject  to  and  must  comply  with  the  requirements  of  the 
systems.  A listing,  brief  description,  and  identification 
of  the  government  agency  responsible  for  each  program  are 
displayed  in  Appendix  A. 


The  Defense  Priorities  and 

Defense  Materials  Systems 

To  assure  implementation  of  the  two  systems,  all 
contracts  awarded  by  a government  agency  in  support  of  a 
defense  program  must  use  contractual  clauses  which  require 
compliance  with  the  systems'  regulatory  requirements  and 
identify  the  actions  required  by  a contractor.  For  example, 
the  Armed  Services  Procurement  Regulation  requires 
use  of  such  a contract  clause  in  all  defense  program 
contracts  except  those  of  value  less  than  $500.00  (5*p.l:27). 
In  addition  to  the  insertion  of  a mandatory  clause,  all 
defense  program  contracts  are  assigned  a symbolic  priority 
rating.  All  priority  ratings  must  originate  within  a 
procuring  defense  or  "associated"  agency. 


i 

The  "associated  agencies"  of  the  Department  of 
Defense  are  the  Central  Intelligence  Agency,  the  Federal 
Aviation  Administration,  and  the  National  Aeronautics  and 
Space  Administration. 
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Within  the  Defense  Priorities  System,  there  are  two 
priority  ratings,  "DX"  and  "DO".  The  majority  of 
procurement  performed  in  support  of  defense  programs 
automatically  assume  a "DO"  rating.  However,  programs 
selected  by  the  President  as  having  highest  national 
priority  for  accomplishment  are  assigned  a "DX”  rating 
(6:p.l-3).  Generally,  a "DX"  or  "DO"  rated  contract  should 
not  be  considered  as  having  a strictly  superior- inf erior 
ranking  in  relation  to  each  other.  Both  are  performed  in 
support  of  national  defense  programs  and  are,  therefore,  of 
equal  importance  within  the  national  economy.  Any  rated 
contract  is  accorded  preferential  treatment  in  relation  to 
purely  commercial  orders  in  terms  of  contract  acceptance 
and  delivery  (4:10-16). 

The  net  result  of  contract  clause  insertion  and  the 
assignment  of  a priority  rating  is  the  assurance  that  the 
following  occurs  within  the  national  economy:  any 
contractor  or  supplier  who  receives  a rated  defense  contract 
or  order  will  employ  the  priorities  powers  of  the  Defense 
Production  Act  in  obtaining  "...  products , materials , 
or  services  needed  to  complete  production,  construction 
and  research  and  development  projects  for  defense  programs 
[4:5]."  Additionally,  prime  contractors  to  whom  the 
priority  rating  is  assigned  must  place  the  symbolic 
priority  on  and  insert  appropriate  clauses  within  the 
subcontracts  or  purchase  orders  placed  to  complete  a 
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defense  contract.  In  turn,  the  subcontractor  must 
accomplish  the  same  task.  The  use  of  a priority  rating  is 
expressly  prohibited  unless  received  from  a defense 
agency  or  customer  (4:7).  Finally,  proper  identification 
of  a rated  contract  provides  the  means  by  which  the  resource 
requirements  of  a defense  program  are  satisfied. 

In  the  specific  case  of  Department  of  Defense 
procurement,  "...  rated  contracts  and  purchase  orders 
. . . may  be  placed  on  selected  suppliers  when  adequate 
response  to  a solicitation  is  not  received  [5:p.l:27]." 

For  example,  should  a situation  arise  wherein  no  bids  or 
proposals  are  received  as  a result  of  a solicitation  or  if 
the  bids  or  proposals  do  not  cover  the  requirement,  an 
attempt  should  be  made  to  locate  alternate  sources  to  the 
extent  existing  conditions  will  permit.  In  the  event  this 
effort  fails  and  it  is  determined  that  the  procurement  must 
be  accomplished,  then  "...  rated  orders  in  the  form  of 
rated  contracts,  rated  purchase  orders  . . . shall  be 
presented,  to  one  or  more  (as  appropriate)  selected 
suppliers  or  manufacturers  qualified  to  produce  the  item 
or  material  [5sp.l 8 28]. " This  action  is  to  be  accomplished 
by  a cover  letter  signed  by  the  contracting  officer  "... 
citing  requirements  of  the  Defense  Production  Act  and 
Defense  Priorities  System  Regulation  1,  and  requesting 
timely  acceptance  thereof  by  the  contractor  [5 '•  P • 1 : 28]  . " 
Additionally,  the  letter  shall  request  that  the  contractor 
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promptly  furnish  any  reasons  for  rejection  in  writing. 
Should  the  contractor  refuse,  rejected  orders  are  to  he 
forwarded  to  the  Bureau  of  Domestic  Commerce,  via 
established  channels,  for  action  which  the  bureau  deems 
fit  (5sp.l*28).  It  should  be  noted  that  order  rejection  on 
the  part  of  the  contractor  is  a violation  of  federal 
statute . 

In  addition  to  the  foregoing,  a more  subtle, 
persuasive  factor  exists  to  insure  the  effectiveness  of  the 
priority  rating  through  the  workings  of  the  Defense 
Materials  System.  The  Defense  Materials  System  provides 
the  means  by  which  the  availability  of  basic  materials  used 
in  the  manufacture  of  defense  items  is  insured.  Basic 
materials  considered  crucial  to  the  manufacture  of  defense 
items,  entitled  "controlled  materials",  are  indirectly 
made  available  to  a contractor  through  a system  of 
allotments  and  set-asides.  The  controlled  materials  are 
steel,  copper,  aluminum,  and  nickel  alloys.  The  Defense 
Materials  System  provides  that  a contractor  engaged  in  the 
production  of  "Class  A"  or  "Class  B"  products  will  be 
assured  of  the  availability  of  controlled  materials  to 
complete  his  contract.  Class  A products  are  "...  those 
products  containing  controlled  materials  and  which  are 
designed  specifically  for  military  use,  but  are  not  in 
themselves  controlled  materials  [4:17]."  Additionally, 
components  of  a Class  A product  specifically  designed  to 
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military  specifications  are  Class  A products.  Class  B 
products  are  "...  standard  commercial  products  which 
contain  controlled  materials,  but  which  in  themselves  are 
not  controlled  materials  [4:17]."  An  example  of  a Class  A 
product  would  be  a fighter  aircraft  whereas  a Class  B 
product  would  be  a standard  diesel  generator  regularly 
produced  for  commercial  sale. 

The  manner  in  which  set-asides  and  allotments 
assure  the  availability  of  controlled  materials  is  as 
follows.  On  a quarterly  basis,  estimated  requirements  for 
controlled  materials  are  submitted  to  the  Federal 
Preparedness  Agency  by  "claimant  agencies";  i.e.,  the 
Department  of  Defense,  Bureau  of  Domestic  Commerce  and  so 
forth.  Upon  consolidation  of  the  requirements,  the 
Federal  Preparedness  Agency  establishes  a set-aside  of  the 
productive  output  of  controlled  material  producers . The 
set-aside  amount  established  is  a ratio  bet ween  current 
defense  needs  and  shipments  made  by  the  producers  during 
a base  period.  This  set-aside  must  be  made  available  for 
defense  purposes.  The  Federal  Preparedness  Agency  there- 
upon issues  an  allotment  to  the  claimant  agencies  which  are 
in  turn  sub-divided  until  the  major  operating  elements  of 
the  agency  receive  an  allotment.  It  should  be  noted  that 
allotments  are  not  issued  to  defense  contractors;  the 
contractors  receive  controlled  materials  by  placing  an 
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Authorised  Controlled  Material  Order  with  the  producer  of 
controlled  materials  (4:8-9).  The  allotment  can  he 
viewed  as  a programming  tool  within  claimant  agencies  since 
the  allotment  is  an  authorization  to  use  specified 
quantities  of  controlled  materials  in  the  accomplishment 
of  defense  programs. 

It  is  therefore  the  purpose  of  the  Defense  Materials 
System  to  insure  that  controlled  materials  are  available  to 
defense  contractors,  whereas  the  Defense  Priorities  System 
provides  the  means  by  which  the  total  resource  requirements 
of  defense  programs  are  satisfied. 

Management  Information 

Systems 

Definition.  From  the  preceding  brief  descriptions  of  the 
Defense  Priorities  and  Defense  Materials  Systems,  it  should 
be  apparent  that  the  controlled  materials  requirements 
identified  by  JAMAC  are  of  great  significance  within  the 
Department  of  Defense.  Accordingly,  the  management 
objectives  of  JAMAC  include  the  need  for  efficient,  error- 
free  and  timely  manipulation  of  contractor  prepared  data. 
Moreover,  as  set-asides  are  established  for  the  exclusive 

2 

The  primary  distinction  between  an  Authorized 
Controlled  Material  Order  and  a rated  order  is  that  the 
former  is  used  to  specifically  acquire  controlled  materials 
whereas  a rated  order  is  used  to  satisfy  any  material,  other 
than  controlled  materials,  or  item  requirement. 
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use  of  defense  program  needs,  the  accurate  tabulation  of 
contractor  estimates  is  essential.  It  is  to  these  ends 
that  a management  information  system  could  be  of  important 
benefit . 

At  present  there  are  numerous  definitions  of  a 
management  information  system.  These  differing  definitions 
stem  from  the  relative  newness  of  these  systems  and  from 
differing  opinions  of  their  purpose  and  use.  However,  two 
main  characteristics  tend  to  be  present  in  definitions  of 
management  information  systems.  First,  management 
information  systems  are  characterized  by  a shift  toward  the 
use  of  the  computer  for  management  applications;  i.e., 
management  information  systems  mark  the  attempt  to  bring 
the  power  of  the  computer  to  management.  Secondly, 
management  information  systems  attempt  to  provide 
information  to  both  policy  makers  and  operating  management 
(2:13). 

As  such,  information  is  stored  and  structured  to 
serve  the  particular  needs  of  management.  The  stored 
information  then  becomes  the  foundation  of  the  system,  its 
data  base.  In  order  for  the  data  base  to  be  responsive ' to 
management  needs,  the  data  must  be  organized  into  elements 
which  can  be  synthesized  into  meaningful  output  (2:14). 

For  the  purpose  of  this  study,  a management 
information  system  is  defined  as  a management-oriented 
system.  It  is  characterized  by  information  elements 
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structured  into  a data  base  serving  the  information 
requirements  of  policy  makers  and  operating  management 
(2:14)  . 


Planning  and  design.  Similar  to  the  numerous  definitions 
of  management  information  systems,  the  prerequisites  and 
procedures  of  effective  planning  and  designing  abound. 
Advancing  from  the  position  of  the  stated  definition, 
however,  the  following  stages  of  development  are  considered 
to  be  essential: 

Stage  1:  Systems  Specification  . . . includes  the 
design  of  all  of  the  aspects  of  a management  information 
system  that  are  important  to  the  users.  It  includes 
principally  the  basic  decisions  as  to  what  information 
should  be  provided  by  the  system. 

Stage  2:  Data-Processing  Implementation  ...  is 
concerned  with  those  things  that  are  important  to  the 
processing  of  the  data.  The  purpose  in  this  stage  is  to 
design  a data-processing  system  that  will  most  effi- 
ciently implement  the  system  specified  in  Stage  1. 

Stage  3:  Programming  . . . starts  with  the  systems 
flow  charts  and  ends  when  the  program  is  . . . (complete) 

[3:377-378]. 


Data  Base  Considerations 


Generation.  At  the  beginning  of  each  calendar  quarter, 

JAMAC  prepares  and  forwards  a notice  to  prime  contractors 
requiring  the  use  of  controlled  materials  in  the  performance 
of  defense  contracts.  A prime  contractor  is  any  organiza- 
tional entity  to  which  a defense  contract  is  awarded  to  for 
performance  by  a government  procuring  activity.  This 
definition  does  not  include  other  organizational  entities 

engaged  in  defense  program  performance  by  any  other  means. 
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The  notice  makes  reference  to  and  cites  reporting 
requirements  contained  within  Defense  Materials  System 
Regulation  1 and  delineates  specific  reporting  criteria. 

It  is  important  to  note  that  reporting  is  mandatory  by 
virtue  of  federal  statute  and  that  failure  to  report  can 
result  in  imprisonment  or  fine,  or  both  (l). 

Reporting  by  prime  contractors  covers  a period  of 
four  calendar  quarters  composed  of  a future  base  quarter 
and  three  subsequent  quarters.  The  base  quarter  is  normally 
three  calendar  quarters  in  advance  of  the  date  of  the 
notice  (8:2), 

In  general,  any  prime  contractor  requiring 
controlled  materials  during  the  base  and  three  subsequent 
quarters  in  excess  of  specific  threshold  amounts  for  any 
one  of  eight  material  classes  is  required  to  submit  a Form 
DMS-4A,  "Statement  of  Controlled  Materials  Requirements  for 
Class  'A'  Products--Production  or  Research  and  Development." 
The  eight  material  classes  are  subsets  of  the  four 
controlled  materials  (8:1-3). 

Completed  DMS-4A's  depict  all  requirements  for  all 
eight  material  classes  even  though  only  one  class  may  be 
in  excess  of  threshold  amounts.  Prime  contractors  with 
material  requirements  under  the  thresholds  may  respond 
solely  with  a letter  so  stating  and  request  exemption  from 
reporting.  The  eight  material  classes  and  threshold  amounts 
are  (8:1-2): 
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Carbon  Steel 10  tons 

Alloy  Steel 1 ton 

Stainless  Steel 1 ton 

Copper  and  Copper-Base  Alloy 

Brass  Mill  Products  1 ton 

Copper  Wire  Mill  Products 1 ton 

Copper  and  Copper-Base  Alloy 

Foundry  Products  and  Powder  1 ton 

Aluminum 1 ton 

Nickel  Alloys 1 ton 


Reported  material  requirements  are  based  solely  on 
contracts  already  on-hand,  contract  add-ons,  or  follow-ons 
to  contracts  that  the  contractor  is  certain  of  receiving. 
Anticipated  new  contract  awards  are  not  included  (8:2). 

In  addition  to  the  DMS-4A , contractors  are  requested 
to  complete  a Format  A,  "DMS  Requirements  Forecast  and 
Allotment  Usage".  The  Format  A depicts  the  contractors 
actual  consumption  of  the  eight  material  classes  during  the 
most  recent  calendar  quarter  (8:2). 

Finally,  in  addition  to  the  general  reporting 
requirements,  prime  contractors  in  possession  of  "DX"  rated 
contracts  are  required  to  submit  a separate  DMS-4A  and 
Format  A for  each  "DX"  rated  contract  (8:3). 

Form  and  format.  The  data  on  the  DMS-4A  and  Format  A forms 
(Figures  1 and  2)  consists  of  forecasted  material 
requirements  for  each  of  the  four  quarters  and  consumption 
rates  for  the  most  recent  quarter.  Moreover,  it  includes 
total  requirements  for  each  contractor  as  well  as 
requirements  for  individual  "DX"  rated  contracts.  Material 
requirements  and  consumption  for  carbon  steel  and  alloy 
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form  DMS-4A 
• rev.  *-?ai 


U.5.  DEPARTMENT  OF  COMMERCE 
DOMESTIC  ANO  INTERNATIONAL  business  ADMINISTRATION 


DEFENSE  MATERIALS  SYSTEM 

Statement  of  Controlled  MoterioU  Requirements  for  Class  "A"  Products 
Production  or  Research  and  Development 


This  report  is  required  by  law  (SO  U.S.C.  App.  Sec.  2155).  Failure  to  report  can  result  in  a maximum  fine  of  SI, 000  or  imprison- 
ment up  to  one  year,  or  both.  Information  furnished  herewith  15  oeemed  confidential  pursuant  to  50  U.S.C.  App.  Sac.  2155(e). 


INSTRUCTIONS  - Submit  original  and  two  (2)  copies  to  Government 

Agency  to  which  statement  is  made,  and  retain  one  (1)  copy.  Read 
instructions  on  reverse  of  this  form  before  filling  out  this  application. 
T.  Name  and 'address 'of  contractor  fjjrnp*/,  City,  Stated T!7p 


X Name,  address,  title  and  teiephonenumcer  of  your  company 

representative  responsible  for  preparation  of  this  form. 


S.  Control  Humber  (For  Agency  Ust) 


A,  Contracting  Government  agency 


5,  Government  contract  number(s)  ano  date(S) 


S.  Name  and  address  of  Agency  to  which  statement  is  submitted 


Section  I - SCHEDULE  OF  DELIVERIES  ON  RATEO  ORDERS  * 


Product 

(a) 


Unit  of 
measure 

<t>) 


Process 

Time 

(Mo.) 

(C) 


Total 

Qty. 

(<*> 


-Qtr.  19. 

(•> 


. Qtr.19. 

(0 


.Qtr.19. 

(2) 


..Qtr.  19. 

(M) 


Section  II  - CONTROLLED  MATERIALS  REQUIREMENTS  • 


Item 

No. 

Controlled  material 

Unit  of 
measure 

Item 

No. 

Total 

Qtr.  19 

Qtr.  19 

Qtr.19 

Qtr.  19 

(a) 

(b) 

(C) 

(*) 

(e> 

(0 

(?) 

(h) 

10 

Carbon  steel  (including  wrought 

Short 

tons 

20 

Alloy  Steel  ('except  stainless  steel) 

30 

Stainless  steel 

Pounds 

40 

Copper  and  copper-base  alloy 
brass  mill  products 

50 

Copper  wire  mill  products 

so 

Copper  and  copper-base  alloy 
foundry  products  and  powder 

70 

Aluminum 

80 

Nickel  alloys 

FOR  GOVERNMENT  USE  ONLY 


* Use  continuation  sheet  if  required  for  more  than  four  Quarters. 


Figure  1 


FORM  DMS-4A 


U5C  3MW-OC  fla7«7-R?a 
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"FORMAT  A" 

DMS  REQUIREMENTS  FORECAST  AND  ALLOTMENT  USAOE 


BOB  APPROVAL  NO.  22-R0299 


(1)  NAME  AND  ADDRESS  OF  FACILITY 


(2) 


NAME  AND  PHONE  NUMBER  07 
OFFICIAL  RESPONSIBLE  FOR  REPORT 


(3)  PROCURING  SERVICE 


(I*)  PROGRAM  SYMBOL 


(5)  DATE  OF  REPORT 


(6)  CALENDAR  QUARTER 
QTR  1? 


(7)  CHECK  APPROPRIATE  BLOCK 

Requirements  Forecast  / / 

Allotment  Usage  ZZ7 

(6)  Item  10 
Carbon 

S tool 

Tons 

(9)  Itoii  20 
Alloy 
Steal 

Tonfl 

;iO)  Item  )0 
Stainless 
Steel 

Lbs 

(11)  Item  I4O 
Brian  Mill 
Products 

Lba 

(12)  Item  50 
Copr>er 
Wirt 

Lbs 

(13)  Item  60 
* Copper 
Foundry 
_ Lbs 

(lb)  Item  70 

Aluminum 

Lbs 

(15)  it«»  60 

Nickel 

Alloys 

Lb? 

(16)  PRODUCTION 

MODEL  AND  CONTRACT  NUHBKR 

(17)  SUB-TOTAL 

(16)  SPARES 

(19)  TOOLING 

(20)  RESEARCH  AND  DEVELOPMENT 

(21)  MODIFICATION 

- 

(22)  CIVIL  AIR  CARRIER 

(23)  TOTAL 

00 


Figure  2 


FORMAT  A 


steel  are  reported  in  short  tons  while  the  remaining  six 
classes  are  reported  in  pounds  (1). 

Retention  requirements.  Although  JAMAC 's  responsibility  for 
reporting  total  estimated  material  requirements  would  tend 
to  create  the  impression  that  only  consolidated  material 
requirements  are  retained,  other  functional  responsibilities 
of  JAMAC  require  that  all  data  collected  be  retrievable  in 
numerous  format.  It  is  therefore  mandatory  that  all 
collected  data  be  retained  by  individual  quarterly  reports 
and  be  retained  in  such  a manner  that  various  types  of  data 
manipulation  are  possible  (1). 

Summary 

The  Defense  Materials  System  provides  the  means 
whereby  the  availability  of  controlled  materials  required 
by  defense  contractors  to  manufacture  defense  items  is 
insured.  The  process  of  establishing  set-asides  and 
receiving  allotments  secures  a portion  of  the  productive 
output  of  controlled  materials  producers  for  procuring 
defense  or  ’’associated"  agencies. 

Within  the  DOD,  JAMAC  is  responsible  for  the 
submission  of  estimated  controlled  material  requirements 
to  the  Federal  Preparedness  Agency.  Since  the  set-aside 
amount  is  based  on  cumulative  material  requirements  and 
allotments  to  claimant  agencies  specify  quantities  of 
controlled  materials  available  for  defense  programs,  the 
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development  of  a management  information  system  could  be  of 
significant  benefit  to  JAMAC. 

The  planning  and  design  of  a management  information 
system  is  accomplished  in  three  stages  of  effort.  Formal 
definition  of  management  information  systems  and  systems 
specification  require  that  planning  and  design  be 
accomplished  in  light  of  the  information  requirements  and 
desires  of  management.  Upon  complete  systems  specification, 
remaining  effort  is  accordingly  directed  toward  the  actual 
realization  of  management's  desires. 
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Chapter  3 


METHODOLOGY 

Given  that  the  planning  and  design  of  a management 
information  system  is  accomplished  in  three  stages  of  effort 
and  that  the  pragmatic  orientation  of  this  research  effort 
engendered  three  product  oriented  objectives,  it  follows 
that  the  methodology  must  encompass  the  stages  of  effort 
and  product  oriented  objectives.  The  purpose  of  this 
chapter  is  to  describe  the  methodology  which  encompassed  a 
systematic  project  directed  toward  the  creation  of  a 
management  information  system. 

Project  Development 

As  specified  during  the  definition  of  a management 
information  system,  information  is  stored  and  structured  to 
serve  the  needs  of  management.  Additionally,  the  stored 
information,  or  collected  data,  must  be  organized  into 
elements  which  can  be  synthesized  into  meaningful  output. 

In  recognition  of  JAMAC's  responsibilities  and  information 
requirements,  it  was  apparent  that  all  collected  data  must 
be  stored  in  individual  quarterly  report  records  capable  of 
being  retrieved  in  a manner  which  would  facilitate  numerous 
variations  of  data  manipulation. 
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It  was  to  this  end  that  a project  was  designed 
centering  around  three  prime  considerations.  The  prime 
considerations  were  the:  (1)  exact  specification  of 
information  requirements,  (2)  development  of  control  and 
audit  safeguards  to  insure  system  validity,  and  (3) 
specification  of  performance  criteria  to  measure  operational 
performance.  The  following  outlines  the  rationale  and 
purpose  of  the  three  considerations. 

Information  requirements.  Those  responsibile  for  system 
design  require  complete  definition  of  the  information 
requirements  of  the  management  information  system  in  order 
to  structure  the  data  base.  Management  must  state  their 

t 

information  requirements  so  that  the  information  elements 
incorporated  into  the  data  base  will  reflect  the  stated 
requirements.  Unless  the  information  requirements  of  the 
system  are  stated  correctly  and  completely,  the  operational 
system  will  be  unresponsive  to  their  needs. 

Additionally,  relationships  between  the  information 
elements  in  the  data  base  must  be  defined.  The  data  base 
must  be  structured,  based  on  these  relationships,  to  permit 
information  retrieval.  Unless  the  relationships  between 
information  elements  are  correctly  defined,  the  final 
system  will  not  be  responsive  to  user  interrogations. 

An  improperly  designed  data  base  will  prevent  the 
efficient  and  effective  operation  of  a management 
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information  system  as  the  data  base  is  the  center  of  the 
system.  Improper  design  is  the  result  of  inadequate 
definition  of  information  requirements  and  information 
relationships.  In  short,  a data  base  can  be  developed  only 
if  system  requirements  are  clearly  defined. 

Control  and  audit  safeguards.  Controls  must  be  established 
to  prevent  errors  from  affecting  the  data  base.  Errors  are 
most  likely  to  occur  during  the  process  of  entering  data 

into  or  updating  the  data  base.  Such  errors  must  be 
stopped  before  entering  the  data  base. 

All  transactions  that  affect  the  data  base  must  be 
checked  for  validity  and  accuracy.  Errors  must  be  located 
and  corrected  before  output  validity  is  damaged.  Error 
detection  procedures  must  be  an  integral  part  of  the 
operational  management  information  system. 

Additionally,  information  in  the  data  base  must 
be  accessible  in  order  to  verify  that  the  information  is 
correct.  If  it  is  not  correct,  audits  must  locate  the 
discrepancies  within  the  data  base.  Therefore,  provisions 
must  be  established  which  permit  periodic  audit  of  infor- 
mation within  the  data  base. 

Error-detection  and  audit  controls  serve  to 
validate  the  integrity  of  the  management  information  system. 
A management  information  system  cannot  work  properly  unless 
the  information  in  the  data  base  is  protected  from  errors. 
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Performance  criteria.  Criteria  must  be  established  to 


measure  the  performance  of  the  management  information 
system.  In  other  words,  objectives  must  be  established  for 
the  system  to  meet  or  exceed. 

The  objectives  of  the  management  information  system 
in  reality  specify  the  reason  for  the  creation  of  the 
system.  As  discussed  earlier,  such  objectives  may  include 
the  faster  production  of  required  information,  improved 
accuracy  of  material  requirements,  and  the  release  of 
assigned  personnel  to  pursue  more  meaningful  tasks. 

Without  system  performance  criteria,  system 
operation  cannot  be  evaluated.  Performance  evaluation 
requires  the  existence  of  standards  by  which  to  measure 
actual  performance. 

Project  Implementation 

From  the  preceding  discussion,  a definite  requirement 
exists  to  directly  involve  the  users  of  the  management 
information  system,  i.e.,  operating  and  policy  management, 
in  system  design.  The  design  characteristics  specified  by 
the  users  determines  the  shape  and  extent  of  system 
performance  as  well  as  its  effectiveness.  Project  imple- 
mentation, then,  begins  with  user  specification  of  the 
system  and  progresses  through  each  stage  of  design  effort. 

System  specification.  To  achieve  complete  and  accurate 
definition  of  the  management  information  system,  an 
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interview  guide  in  the  form  of  a checklist  was  used  during 
interviews  with  JAMAC  representatives.  Each  question  within 
the  checklist  was  derived  to  aid  the  clear  understanding  of 
JAMAC ' s desires  as  well  as  to  provide  the  means  to  satisfy 
the  three  research  objectives.  The  checklist  questions  are: 

1.  What  are  the  objectives  of  the  management 
information  system? 

2.  What  are  the  information  requirements  of  the 
management  information  system?  Which  of  the  stated 
requirements  are  of  vital  interest? 

3.  What  are  the  file-creation  and  maintenance 
requirements  of  the  system? 

4.  What  are  the  file-searching  and  analysis  needs 
of  the  system  users? 

5-  What  output  is  required  from  the  management 
information  system?  What  are  the  form  and  content  of  this 
output? 

6.  What  control  and  audit  procedures  can  be 
established  to  insure  validity  of  system  operation?  How 
complete  should  the  control  and  audit  procedures  be?  -How 
frequently  should  control  and  audit  procedures  be 
accomplished? 

7.  What  are  the  performance  criteria  of  the 
management  information  system? 

Data  processing  implementation.  Following  the  system 
specification  stage,  i.e.  , definition  of  management 
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information  system  requirements,  effort  was  directed  to 
translating  the  requirements  into  a data-processing 
algorithm  capable  of  achieving  the  system  specifications. 

Detailed  analysis  and  planning  was  accomplished  to 
achieve  the  translation  of  the  system  requirements  into  a 
workable  algorithm.  To  achieve  this  goal,  the  following 
considerations  were  reduced  to  a checklist  format. 

1 . Has  the  format  of  the  information  elements  in 
the  data  base  been  defined  and  described?  Does  JAMAC  concur 
with  the  descriptions? 

2.  What  relationships  exist  between  the  information 
elements  in  the  data  base?  How  can  the  data  base  be 
structured  to  capitalize  on  the  relationships? 

3.  How  can  the  data  base  be  structured  to  be 
adaptable  to  the  file-creation  and  maintenance  requirements 
of  the  system? 

4.  What  techniques  can  be  used  to  accomplish  file- 
searching and  analysis? 

5.  How  must  the  data  base  be  structured  to  achieve 
satisfaction  of  information  requirements? 

Programming.  Upon  completion  of  the  preceding  two  stages, 

a data  base  structure  composed  of  information  elements  was 

defined.  Effort  was  then  directed  to  preparing  a program 

which  would  manipulate  the  appropriate  information  elements 

to  yield  required  information.  All  programming  effort  was 

accomplished  using  FORTRAN  Y via  the  CREATE  System  and 
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time-sharing  terminals  located  in  the  School  of  Systems 
and  Logistics,  Air  Force  Institute  of  Technology,  Wright- 
Patterson  AFB , Ohio. 

Data  was  provided  by  J AFLAC  in  order  to  pursue 
operational  and  system  validity  testing.  Data  was  supplied 
by  means  of  recent  DMS-4A  forms  and  test  program  runs  were 
compared  with  previously  calculated  figures  to  confirm  the 
accuracy  of  the  program. 

Summary 

The  methodology  consists  of  three  distinct  phases 
or  stages  of  effort.  Each  stage  of  effort  is  directly 
linked  to  the  research  questions  and  objectives  of  the 
research  effort.  By  reducing  the  overall  thesis  effort  to 
a three  phased  project,  intensive  effort  is  directed  to 
each  phase  in  a sequential  manner  thus  reducing  the 
possibility  of  failing  to  address  significant  aspects  of  the 
planning  and  design  effort. 

To  further  preclude  the  possibility  of  accidental 
oversight,  each  stage  of  effort  is  guided  by  a checklist  of 
analytical  questions.  Each  checklist  is  designed  to  assure 
that  the  objectives  of  each  phase  is  attained.  The  three 
stages  of  effort  include  system  specification  by  the  user, 
data  processing  implementation  by  the  system  designers,  and 
programming  of  the  designed  system. 

Three  primary  design  considerations  guided  the 

development  of  the  project.  The  considerations  included 
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the  exact  specification  of  information  requirements  by 
the  users,  the  need  to  establish  control  and  audit 
procedures  to  insure  system  validity,  and  the  specification 
of  performance  criteria  to  measure  the  operational 
performance  of  the  system. 
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Chapter  4 


RESULTS  OF  THE  PROJECT 

The  purpose  of  this  chapter  is  to  describe  the 
results  of  the  project  developed  to  plan  and  design  the 
management  information  system.  The  chapter  will  specifically 
address  the  results  of  the  system  specification,  data 
processing  implementation,  and  programming  stages  of 
development. 

System  Specification 

Project  implementation  began  with  system  specifi- 
cation interviews  conducted  on  a personal  interview  basis 
with  four  selected  individuals:  Mr.  W.  W.  Wetterling, 
Civilian  Administrator,  JAMAC ; Mr.  John  Cantrell, 

Industrial  Specialist,  JAMAC;.  Mr.  John  Horseman,  Industrial 
Specialist,  JAMAC;  and  Mr.  Robert  Morris,  Industrial 
Specialist,  JAMAC.  These  individuals  were  identified  by 
Mr.  Wetterling  in  recognition  of  their  functional  responsi- 
bilities in  relation  to  the  reporting  of  controlled  materials 
requirements  to  the  Federal  Preparedness  Agency.  All 
interviews  were  conducted  within  JAMAC' s assigned  office 
space  located  in  Building  #16,  Area  B,  Wright-Patterson  AFB , 
Ohio . 
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System  objectives.  During  each  calendar  quarter,  after 
receipt  of  Form  DMS-4A  and  Format  A reports,  JAMAC  must 
prepare  and  forward  controlled  materials  estimates  to  the 
Federal  Preparedness  Agency.  In  addition  to  reporting  the 
estimated  materials  requirements  of  a large  number  of 
participating  contractors,  the  estimated  quantities  must  be 
reported  in  seventy- three  specific  sub-classifications  of 
the  four  controlled  materials. 

The  process  of  reducing  the  large  volume  of  data  to 
reportable  format  represents  a tremendous  drain  of  manpower 
resources  as  the  process  is  performed  manually.  A 
computer  program  does  exist  to  assist  in  this  effort, 
however,  its  capabilities  are  severely  limited.  Due  to 
logic  errors  and  a basic  inability  to  produce  results 
compatible  with  JAMAC 's  reporting  requirements,  the  program 
is  primarily  used  to  store  peripheral  data  and  to  validate 
manually  computed  totals  of  the  eight  reported  material 
classifications . 

Mr.  Wetterling  accurately  defined  the  objectives  of 
the  management  information  system  while  addressing  the  need 
for  data  automation  within  JAMAC  (?)•  The  existence  of 
such  a system  would  enable  JAMAC  personnel  to  pursue  more 
productive  and  meaningful  tasks  and  reduce  the  amount  of 
time  expended  performing  clerical  tasks.  More  specifically 
stated,  the  system's  objectives  include  the  faster 
production  of  required  information,  the  production  of 
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accurate  material  forecasts,  and  the  release  of  assigned 
personnel  to  pursue  other  tasks. 


Information  requirements.  As  a result  of  each  interview 
with  JAMAC  representatives,  a lengthy  list  of  requirements 
evolved.  Time  constraints,  however,  limited  the  capability 
of  the  system  designers  to  comply  with  all  of  the 
requirements.  JAMAC  was  requested  to  specify  which  of  the 
requirements  was  most  desired. 

After  discussion,  Mr.  Wetterling  (7)  specified  that 
the  effort  was  to  concentrate  on  the  development  of  a 
system  capable  of  generating  information  output  compatible 
with  DD  Form  6l4,  "Materials  Requirements-Steel  and  Nickel 
Alloys"  and  DD  Form  614-1 , "Materials  Requirements-Copper 
and  Aluminum".  The  two  forms  (Figures  3 and  4)  are  the 
primary  instruments  used  by  JAMAC  to  report  materials 
estimates  to  the  Federal  Preparedness  Agency. 

Information  requirements  were  further  delimited  to 
include  United  States  Air  Force  responsibilities  contained 
within  program  identification  codes  A-l,  A-2,  A -6,  A-7,  C-2, 
C-3,  and  C-9  (l).  Air  Force  contracts  awarded  to 
contractors  within  each  program  identification  code  are: 


A-l Aircraft 

A-2 Missiles 

A-6 Ammunition 

A-7  Electronic  and  communications 

equipment 
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MATERIALS  REQUIREMENTS 

REPORTING  AGENCY 

PROCUREMENT  (Claimant) 
PROGRAM 

REPORT  CONTROL  SYMBOL 

5 

TcEL  and  nickel 
ALLOYS 

JOS  NUMBER  OATE 

DO 

COOS 

a 

ITEM  DESCRIPTION1 

b 

TOTAL  FOR 

QUARTERS 

c 

QUARTER 

C.Y. 

d 

QUARTER 

C.Y. 

• 

QUARTER 

C.Y. 

/ 

Quarter 

C.Y. 

4 

(Short  Ton*) 

(Short  Ton*) 

(Short  Ton*) 

(Short  Ton*) 

(Short  Ton*) 

1200 

CARBON  STEEL  (In cl  Wr.  iron)  TOTAL 

12  1 1 

C A STINGS 

1212 

INGOTS.  8ILLCT3,  ETC.  (EXCl.  1215) 

1218 

BILLETS,  STOCK  FOR  SHELL  SOOIC3 

122  1 

BARS,  COLO  FINISHED 

1222 

BARS,  HOT  ROLLEO  (E*d*  1123  ♦ 1223) 

122S 

BARS,  REINFORCING 

1 22  S 

BARS.  STOCK  FOR  SHELL  BOOIES 

1251 

STRUCTURAL  SHAPfiS 

1252 

PILING 

1240 

PIPE  a TUBING.  INCL.  THRO.  CPLG3. 

1281 

PLATCS 

1232 

SHEET  ANO  STRIP  f£sd.  1261) 

1281 

SHEET.  GALVANIZED 

12  82 

TIN,  TERNS,  TIN  MILL  BLACK  PLATS 

1270 

RAILS  ANO  TRACK  ACCESSORIES 

12  80  EELS,  TIRES  AND  AXLES 

1 2 80  WIRE  ROOJ.  WIRE  ANO  WIRE  PROD. 

L_ 

i 

150  0 j ALLOY  STEEL  (Excl.  1040  it  1400)  TOTAL 

1511  ^ c A5 TINGS  (Excluding  tumor) 

1S12IINGOTS.  BILLETS.  ETC. 

1 5 1 4 j C A ST  INC  S,  ARMOR 

1521  1 OARS.  COLO  FI  NISH  CO 

1322'sARS,  HOT  ROLLEO 

1 551  ] STRUCTURAL  SHAPES 

1540jpiPE  fc  TUBINI3,  INCL.  THRO.  CPLGS. 

1381  1 PLATES  (Excluding  1353) 

1532!SHEET  ANO  STRIP 

ISSSj  PLATES,  ROLLEO  ARMOR 

1570  ! TRACK  ACCE550R1E5 

• 

1 5 80  j WH  EELS.  TIRES  ANO  AXLES 

1590 

WIRE  ROOS,  WIRE  ANO  WIRE  PROO 

! 

L 

L ... 

(St  Pound*) 

(M  Pound*) 

(if  Potxid*) 

| (M  Potxid*) 

(M  Pound*) 

1 000 

STAINLESS  STEEL  - NON-NICKEL 
BEARING  - TOTAL 

1 

1 

1 

1 400  1 

STAINLESS  STEEL  - NICKEL  BEARING  - 
1 TOTAL 

! 

QtQQi  NICKEL  ALLOYS  - TOTAL 

' 

08  0118%  THRU  29  9 % NICKEL  CONTENT 

1 

0802130%  THRU  49,9%  NICKEL  CONTENT 

0803  ' 50%  THRU  100%  NICKEL  CONTENT 

1 

i 

* 

1 

1 

L 

1 

^Detailed  ft  am  datinttton*  are  itran  tn  the  "Coded  Li*t  ol  Material  •’*.  1 Aug  1956,  ienjad  pursuant  to  DOD  Inatrjciion  4310.1 

Figure  3 DD  Form  614 
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C-2  Department  of  Defense  construction 

C-3  Maintenance,  repair  and  operating 

supplies  (MRO)  for  Department  of 
Defense  facilities 

C-9  Miscellaneous 


File-creation  and  maintenance.  File  creation  and  maintenance 
requirements  are  such  that  JAMAC  must  maintain  the  flexi- 
bility to  prepare  estimated  material  requirements  reports 
on  a cummulative  basis  of  all  reporting  contractors  as  well 
as  to  perform  analysis  on  individual  contractors  or  specific 
material  requirements  on  a case-by-case  basis  (1).  This 
requirement  creates  a need  for  file  creation  and  maintenance 
on  an  individual  contractor  basis  per  reporting  period. 

Further,  each  contractor  file  must  be  capable  of 
being  updated  on  a quarterly  basis.  Updating  of  contractor 
files  on  a periodic  basis  creates  the  need  to  have  access  to 
each  contractor  file.  However,  in  any  given  quarter  should 
a contractor  not  be  required  to  submit  material  requirement 
reports , existing  reports  on-hand  for  that  contractor  are 
to  be  carried  forward  as  if  a new  report  was  received.  The 
amount  carried  forward  are  those  amounts  portrayed  beyond 
past  base  quarters  which  are  compatible  with  the  current 
reporting  quarter  (l).  This  creates  a need  for  the 
capability  to  selectively  carry  forward  reported  estimates 
already  in  that  contractor's  file. 
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File-search  and  analysis.  From  the  preceding,  some  means  to 
locate  each  contractor’s  file  must  exist.  The  need  for  such 
a requirement  stems  from  requests  to  analyze  specific 
contractor's  requirements,  requests  for  information 
regarding  specific  materials  needs,  or  to  update  contractor 
files  due  to  non-required  response  in  accordance  with 
established  reporting  criteria  (l). 

System  output.  Having  defined  system  output  in  general 
terms,  i.e.,  information  compatible  with  DD  Forms  614  and 
614-1  for  seven  specified  programs,  specific  requirements 
in  terms  of  output  content  and  format  were  established. 
Content  and  format  requirements  were  established  by  Mr. 
Cantrell  and  Mr.  Morris  during  interviews  conducted  from 
17  November  1977  to  2 6 April  1978. 

Contractor  reported  material  requirements  are 
assigned  internal  control  numbers  by  JAMAC  upon  establishment 
of  contractor  records.  Contractor  records  are  established 
upon  initial  receipt  of  Form  DMS-4A  reports.  Each  control 
number  consists  of  nineteen  digits  for  each  of  the  seven 
possible  program  identification  codes  a contractor  may 
report  under.  In  short,  one  contractor  may  be  assigned  as 
many  as  seven  control  numbers  should  that  contractor  be 
reporting  controlled  materials  requirements  for  each  of  the 
seven  program  identification  codes.  Contractor  reports  and 
control  numbers  are  retired  when  that  contractor  no  longer 
reports  requirements  to  JAMAC. 
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Controlled,  material  requirements  output,  then,  is 
to  consist  of  the  following  format  and  content.  Output  will 
be  segregated  by  program  identification  code  groupings. 
Within  each  program  group,  system  output  will  portray 
materials  requirements  for  each  of  the  seventy- three 
sub-classifications  of  material  on  the  DD  Forms  6l4  and 
6l4-l.  Each  sub-classification  amount  will  be  displayed 
to  the  nearest  hundredth. 

Control  and  audit  procedures . In  conjunction  with  basic 
system  output  requirement  definition,  means  to  control  and 
audit  data  input  was  established.  System  output  is  to 
include  a current  contractor  address  list  with  associated 
control  numbers  and  factor  matrices  for  each  program  for 
verification  of  accuracy.  Within  each  program  group,  a 
listing  which  consists  of  three  data  elements  is  also 
output.  These  data  elements  consist  of  the  assigned 
control  number,  reported  controlled  materials  amounts , and 
column  totals  for  the  four  quarters  of  projected  materials 
requirements . 

The  combination  of  system  output  and  the  means  to 
verify  the  accuracy  of  input  data  will  enable  the  user  to 
compare  hard  copy  DMS-4A  reports  to  system  output  for 
keypunch  errors  and  to  perform  external  accuracy  audits. 
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Data  Processing 

Impl ementat ion 


The  data  processing  implementation  stage  represents 
an  attempt  to  translate  requirements  levied  during  system 
specification  into  a data  processing  algorithm.  In  short, 
this  stage  represents  a conceptual  process  of  reducing 
system  specification  and  data  base  requirements  to  a format 
capable  of  computer  programming. 

Info rmat ion  el ement s . Information  elements  contained  in 
the  data  base  consist  of  pertinent  information  extracted 
from  DMS-4A  forms  required  to  meet  system  output  and 
control  and  audit  procedures  specified  by  JAMAC.  Specif- 
ically the  elements  include,  for  each  contractor,  the 
contractor  control  number,  the  contractor's  name  and 
address,  eight  material  classification  amounts  for  four 
quarters,  and  seven  factor  matrices. 

The  factor  matrices  consist  of  eighty-one  cells 
which  contain  factor  constants  by  which  material  requirements 
totals  can  be  manipulated  by  matrix  algebra  to  yield  the 
seventy- three  material  sub-classifications  displayed  on 
BD  Forms  6 14  and  614-1.  Appendix  B contains  a complete 
listing  of  each  factor  constant  by  applicable  program. 

For  clarification  purposes,  the  item  numbers 
correspond  to  the  eight  reported  materials  requirements 
reported  on  DIvIS-4A  forms  and  the  DD  codes  correspond  to 
each  material  sub-classification  displayed  on  DD  Forms  6l4 
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and  614-1.  Each  factor  constant  represents  the  proportional 
amount  of  each  item  number.  The  displayed  factor  constants 
are  the  result  of  statistical  techniques  performed  by  JAMAC 
and  were  provided  by  JAMAC  for  incorporation  within  the 
program. 

Data  base  structure.  As  each  information  element  requires 
strict  segregation  by  contractor  file  and  program  identi- 
fication code,  information  element  integrity  must  be 
strictly  maintained.  Therefore,  each  contractor  file 
within  applicable  program  codes  must  be  entered  and 
maintained  in  the  data  base  on  a singular  basis. 

In  view  of  output  requirements,  the  data  base  must 
be  structured  such  that  all  information  contained  therein 
are  read  and  subsequently  totalled  during  each  computer 
run.  This,  in  turn,  requires  a data  base  of  large  size. 
Similarly,  the  individual  reading  and  storage  of  each 
information  element  during  computer  processing  requires 
larger  than  normal  core  capacity. 

Programming 

The  computer  program  was  written  in  FORTRAN  Y 
computer  programming  language  and  was  developed  for 
operation  on  a Honeywell  635  computer  located  in  the  Air 
Force  Logistics  Command  Headquarters  Building  at  Wright- 
Patterson  AFB . Since  the  computer  program  was  written  in 
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FORTRAN  Y,  it  should  be  easily  adapted  to  other  computer 
systems  which  accept  FORTRAN  based  language  programs. 

The  Honeywell  635  computer  has  three  modes  of 
operation  available  to  the  user  for  running  computer 
programs;  (1)  Time-Share  over  a teletypewriter,  (2)  BATCH 
by  use  of  the  CARDIN  option  over  a teletypewriter,  and  (3) 
straight  BATCH.  The  program  evolved  from  the  first  two 
operation  modes  and  was  ultimately  converted  to  a straight 
BATCH  processing  program  using  automatic  data  processing 
cards  as  an  input  medium. 

Program  development  by  use  of  Time-Share  was 
pursued  for  two  principal  reasons.  First,  Time-Share 
permits  all  preliminary  programming  to  be  accomplished  by 
teletypewriter.  Second,  conversion  of  a Time-Share  program 
to  CARDIN  requires  programming  format  and  syntax  identical 
to  BATCH  processing.  Both  modes  of  operation  eliminate 
the  need  for  automatic  data  processing  card  preparation 
and  permit  simplified  correction  of  errors  by  providing 
instant  diagnostics  and  teletypewriter  input  medium.  Both 
programs  make  use  of  the  same  logic  and  priority  of 
routines  and  with  the  exception  of  simple  format  and  syntax 
modifications  are  essentially  the  same  program.  The  same 
distinction  holds  true  for  the  BATCH  processing  program. 

The  Time-Share  program,  the  first  developed,  was 
tested  for  accuracy  and  compliance  with  system  specifi- 
cations using  simulated  data.  After  making  appropriate 
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corrections,  the  program  was  modified  for  CARDIN  use.  The 
CARDIN  program  was  tested  using  actual  data  provided  by 
JAMAC.  The  program  was  then  modified  for  compatibility 
with  BATCH  processing. 

Appendix  C describes  the  computer  program  that  was 
developed  to  satisfy  the  information  requirements  specified 
by  JAMAC.  The  logic  and  sequence  of  operations  are 
described  by  external  and  internal  program  documentation. 

Summary 

The  management  information  system  specified  by 
JAMAC  must  generate  output  compatible  with  the  form  and 
content  of  DD  Forms  6l4  and  614-1.  The  seventy-three 
material  requirements  sub-classifications  are  to  be  produced 
for  program  identification  codes  A-l , A-2,  A-6,  A-7,  C-2, 

C-3 , and  C-9. 

Within  each  program  identification  code,  system 
output  is  to  be  a mixture  of  control  and  audit  data  as  well 
as  specific  material  sub-classification  quantities.  Specif- 
ically, system  output  will  consist  of  the  name  and  address 
of  each  contractor  reporting  to  JAMAC,  the  assigned 
contractor  control  number,  material  requirement  amounts 
reported  by  each  contractor,  a column  total  of  quarterly 
amounts  reported  by  each  contractor,  the  computed  matrix 
of  program  data  which  is  compatible  with  DD  Forms  61 4 and 
614-1,  material  sub-classification  requirements  quantities, 

and  a grand  total  of  all  reported  amounts. 
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The  structure  of  the  data  "base  requires  more  than 
normally  alio ted  core  capacity  during  computer  processing. 
The  need  for  expanded  core  capacity  is  the  result  of  the 
manner  in  which  data  must  he  entered  and  stored  within  the 
data  "base. 
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Chapter  5 


RESULTS  AND  RECOMMENDATIONS 

The  purpose  of  this  chapter  is  to  describe  the 
results  of  the  thesis  effort  in  relation  to  JAMAC ' s stated 
objectives  and  to  identify  recommended  areas  for  follow- 
on  thesis  efforts.  The  recommendations  presented  are  areas 
of  concern  to  JAMAC  in  which  an  interest  for  future  thesis 
effort  was  expressed. 

Thesis  Effort  Results 

The  research  problem  was  to  plan  and  design  a 
management  information  system  to  consolidate  and  synthesize 
materials  requirement  estimates  for  JAMAC.  The  program 
developed  will  consolidate  and  synthesize  the  estimates  in 
a form  compatible  with  JAMAC’ s reporting  requirements. 
Specifically,  system  output  provides  the  seventy- three 
materials  sub-classification  amounts  compatible  with  the 
form  and  content  requirements  of  DD  Forms  6l4  and  614-1. 

System  objectives  included  the  faster  production 
of  required  information,  the  production  of  accurate  material 
forecasts,  and  the  release  of  JAMAC  personnel  to  pursue 
more  productive  and  meaningful  tasks.  The  program 
developed  will  accomplish  all  three  objectives.  It  will 
eliminate  the  need  for  the  manual  manipulation  of  data  and 
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provide  accurate  material  forecasts.  These  accomplishments 
will  enable  JAMAC  personnel  to  pursue  other  tasks  by 
reducing  the  amount  of  time  required  to  prepare  required 
reports . 

The  specific  information  requirement  of  the 
management  information  system  was  to  generate  information 
compatible  with  DD  Forms  6 14  and  614-1  for  seven  program 
identification  codes.  The  use  of  matrix  algebra  functions 
within  the  program  generates  the  seventy- three  materials 
sub-classification  amounts  contained  in  the  forms.  More- 
over, the  'sub-classification  amounts  are  generated  for  each 
of  the  seven  programs. 

System  output  was  to  contain  the  means  whereby 
the  accuracy  of  input  data  could  be  subject  to  control 
and  audit  procedures.  The  generation  of  input  data  lists 
and  column  totals  of  each  input  data  set  enables  the 
verification  of  input  data  accuracy  and  to  perform  external 
accuracy  audits . 

Recommendations  for 

Future  Study 

The  responsibilities  of  JAMAC  provide  a fertile 
area  for  future  thesis  efforts.  Specific  management  problems 
requiring  in-depth  study  and  analysis  occur  on  a periodic 
basis.  A requirement  also  exists  for  further  automation  of 
reporting  requirements  and  management  areas.  The  following 
recommendations  center  on  automation  aspects. 
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Concern  exists  regarding  the  accuracy  of  contractor 
estimates  as  submitted  on  DMS-4A  forms.  A study  in  this 
area  should  attempt  to  compare  Format  A reports  of 
consumption  with  DMS-4A  estimates.  Such  a study  might 
explore  the  feasibility  of  planning  and  designing  a 
variance  analysis  computer  program.  The  program  should 
have  the  capability  of  comparing  Format  A and  DMS-4A 
reports  from  an  established  data  base.  Variance  analysis 
would  identify  variances  beyond  a specified  order  of 
magnitude  and  identify  those  contractors  exceeding 
reasonable  variance  limits.  Identification  of  excessive 
variance  amounts  would  indicate  poor  materials  estimating 
techniques  and  procedures. 

Another  area  that  might  be  pursued  is  to  automate 
other  reports  prepared  by  JAMAC.  One  such  report  is  the 
Manuf acturer ’ s Report.  This  effort  would  study  the 
feasibility  of  adding  to  this  program  or  the  planning  and 
designing  of  another  program. 

Finally,  a cost-benefit  study  to  evaluate  the 
feasibility  and  the  creation  of  real-time  computer  support 
of  JAMAC ’ s operations  is  suggested.  Such  a study  would 
provide  the  means  whereby  JAMAC  could  provide  instantaneous 
response  to  specific  inquiries  relating  to  controlled 
materials  requirements  and  consumption  and  the  control  of 
exotic  materials  under  the  purview  of  JAMAC, 
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Program 

identification 


Program 


Defense  Agency 


A-l 
A- 2 
A-3 
A-4 
A-5 
A- 6 
A- 7 

B-l 

B-8 

B-9 

C-2 

*r  C-3 
o\ 

C-8 

C-9 


For  Department  of  Defense  and  associated  programs: 

Aircraft  

Missiles  

Ships  

Tank-automotive  

Weapons  

Ammunition  

Electronic  and  communications  equipment  

Military  building  supplies  

Production  equipment  (for  defense  contractor's 

account)  

Production  equipment  ( Government- owned)  

Department  of  Defense  construction  

Maintenance,  repair  and  operating  supplies 

(MRO)  for  Department  of  Defense  facilities  

Controlled  materials  for  Defense  Industrial  Supply 

Center  (DISC)  

Miscellaneous  


Department  of  Defense: 
Army,  Navy  (including 
Coast  Guard),  Air  Force, 
Defense  Supply  Agency, 
associated  agencies  of 
Department  of  Defense: 
Central  Intelligence 
Agency,  Federal 
Aviation  Administration, 
and  National  Aeronautics 
and  Space  Administration. 


For  U.  S.  Energy  Research  & Development  Administration: 

E-l  Construction  

E-2  Operations-including  maintenance,  repair  and  U.  S.  Energy  Research 

operating  supplies  (MRO)  & Development 

E-3  Privately  owned  facilities  Administration. 

For  other  Defense,  Atomic  Energy  and  related  programs: 

B-5  Certain  self-authorizing  consumers  (see  sec.  7 (d) 

of  DPS  Reg.  1 

C-4  Certain  munitions  items  purchased  by  friendly 

foreign  governments  through  domestic  Bureau  of  Domestic 

commercial  channels  for  export  


C-5  Canadian  military  programs  

C-6  Certain  direct  defense  needs  of  friendly  foreign 

governments  other  than  Canada  

D-l  Controlled  materials  producers  

D-2  Approved  State  and  local  civil  defense  programs  ... 

D-3  Further  converters  (steel)  

D-4  Private  domestic  production  

D-5  Private  domestic  construction  

D-6  Canadian  production  and  construction  

D-7  Friendly  foreign  nations  (other  than  Canada) 

Production  and  construction  

D-8  Distributors  of  controlled  materials  Bureau  of  Domestic 

D-9  Maintenance,  repair  and  operating  supplies  Commerce 

(MRO)  (see  Dir.  1 to  DMS  Reg.  1)  

E-4  Canadian  atomic  energy  program  

K-l  General  Services  Administration's  supply 

distribution  facility  program 

■o  AM  Aluminum  controlled  materials  producers  

AM-9000..  Aluminum  controlled  materials  distributors  

FC  Further  converters  (steel  and  nickel  alloys)  

F-l  Certain  items  sponsored  by  the  Federal  Energy 

Administration  for  and  related  to  construction 

of  the  Trans-Alaska  Pipeline  . 

F-2  Certain  items  sponsored  by  the  Federal  Energy 

Administration  for  and  related  to  the  develop-  Department  of  the 
ment  of  Alaskan  North  Slope  oil  resources  Interior 


(4:6) 
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A-l  PROGRAM 


ITEM 

DD  CODE 

FACTOR 

ITEM 

DD  CODE 

FACTOR 

10 

1200 

1.000 

50 

1530 

1.000 

1212 

.084 

1221 

.461 

60 

1540 

1.000 

1240 

.008 

1251 

.286 

70 

1600 

1.000 

1252 

.124 

1611 

.009 

1290 

.037 

1612 

.094 

1620 

.001 

20 

1300 

1.000 

1651 

.013 

1312 

.462 

1652 

.001 

1321 

.029 

1661 

.045 

1322 

.445 

1662 

.165 

1340 

.029 

1663 

.037 

1351 

.017 

1670 

.537 

1352 

.018 

1671 

.086 

1680 

.007 

30 

1000 

.463 

1692 

.002 

1400 

.537 

1693 

.003 

40 

1510 

.959 

80 

0600 

1.000 

1511 

.063 

0601 

.050 

1512 

.902 

0602 

.461 

1520 

.041 

0603 

.489 

1521 

. 041 
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A- 2 PROGRAM 


ITEM 

DD  CODE 

FACTOR 

ITEM 

DD  CODE 

FACTOR 

10 

1200 

1.000 

50 

1530 

1.000 

1212 

.115 

1221 

.193 

60 

1540 

1.000 

1222 

.043 

1231 

.037 

70 

1600 

1.000 

1232 

.069 

1611 

.068 

1240 

.201 

1612 

.062 

1251 

.094 

1620 

.011 

1252 

.205 

1651 

.019 

1290 

.043 

1652 

.016 

1653 

.011 

20 

1300 

1.000 

1654 

.011 

1312 

• 375 

1661 

.011 

1321 

.036 

1662 

.075 

1322 

.321 

1670 

.224 

1331 

.021 

1680 

.019 

1340 

.021 

1691 

.445 

1351 

.068 

1692 

.016 

1352 

.146 

1693 

.012 

1380 

.012 

80 

0600 

1.000 

30 

1000 

. 268 

0601 

.204 

1400 

.732 

0602 

.204 

0603 

• 592 

40 

1510 

.508 

1511 

.125 

1512 

.258 

1513 

.125 

1520 

.492 

1521 

.117 

1522 

.258 

1523 

.117 
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A- 6 PROGRAM 


ITEM 

DD  CODE 

FACTOR 

ITEM 

DD  CODE 

FAC TO f 

10 

1200 

1.000 

50 

1530 

1.000 

1212 

.031 

1221 

.055 

60 

1540 

1.000 

1252 

.914 

70 

1600 

1.000 

20 

1300 

1.000 

1611 

.270 

1331 

.300 

1651 

.175 

1340 

.700 

1670 

.183 

1680 

.372 

30 

1000 

.802 

1400 

.198 

80 

0600 

1.000 

40 

1510 

.733 

1512 

.733 

1520 

.267 

1521 

.067 

1522 

.067 

1523 

.133 

A- 7 PROGRAM 

10 

1200 

1.000 

50 

1530 

1.000 

1221 

.072 

1222 

.072 

60 

1540 

1.000 

1240 

.133 

1252 

. 61 5 

70 

1600 

1.000 

1290 

.108 

1611 

. 001 

1612 

.005 

20 

1300 

1.000 

1620 

.004 

1321 

. 586 

1651 

.001 

1340 

.099 

1652 

.003 

1351 

.216 

1653 

.003 

1352 

.099 

1654 

.001 

1662 

. 001 

30 

1000 

.51 

1670 

.017 

1400 

.49 

1680 

.002 

1693 

.962 

40 

1510 

.511 

1511 

.057 

80 

0600 

1 . 000 

1512 

.401 

0601 

.224 

1513 

.053 

0602 

.612 

1520 

.489 

0603 

.164 

1521 

.070 

1522 

.384 

1523 

.035 
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C-2  PRO GR Alv'i 


ITEM 

DD  CODE 

FACTOR 

10 

1200 

1.000 

1223 

.110 

1231 

.485 

1240 

.055 

1251 

.141 

1252 

.087 

1261 

.005 

1262 

.007 

1290 

.110 

20 

1300 

1.000 

1322 

.103 

1340 

.552 

1352 

.345 

30 

1000 

.406 

1400 

.594 

40 

1510 

.596 

15H 

.110 

1512 

.075 

1513 

.411 

1520 

.404 

1521 

.110 

1522 

.075 

1523 

.219 

ITEM 

DD  CODE 

FACTOR 

50 

1530 

1.000 

60 

1540 

1.000 

70 

1600 

1.000 

1670 

.767 

1680 

.233 

80 

0600 

1.000 
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C-3  PRO GRAM 


ITEM 

DD  CODE 

FACTOR 

ITEM 

DD  CODE 

FACTOR 

10 

1200 

1.000 

50 

1530 

1.000 

1221 

. 046 

1223 

.091 

60 

1540 

1.000 

1231 

.3^3 

1240 

.198 

70 

1600 

1.000 

1251 

.068 

1612 

.701 

1252 

.068 

1620 

.299 

1261 

.057 

1262 

.049 

1270 

.019 

1290 

.061 

20 

1300 

1.000 

1321 

.630 

1340 

.370 

30 

1000 

.978 

1400 

.022 

40 

1510 

.889 

1511 

.037 

1512 

.037 

1513 

.519 

1514 

.296 

1520 

.111 

1521 

.037 

1522 

.037 

1523 

.037 

C-9  PROGRAM 

10 

1200 

1.000 

50 

1530 

1.000 

1240 

.789 

1251 

.211 

60 

1540 

1.000 

20 

1300 

1.000 

70 

1600 

1.000 

1312 

1.000 

1661 

.716 

1662 

.284 

30 

1000 

1.000 

40 

1510 

1.000 

1513 

1.000 
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The  purpose  of  this  appendix  is  to  describe  the 
computer  program  that  was  developed  to  satisfy  the 
information  requirements  specified  by  JAMAC.  Each  section 
of  the  program  is  described  with  the  use  of  detailed 
listings  of  the  coded  program.  Finally,  the  method  for 
running  the  computer  program  is  discussed. 

Program  Description 

The  following  seven  sections  describe  the  operation 
of  the  program.  The  program  was  divided  into  seven 
sections  for  discussion  on  the  basis  of  the  primary  function 
performed  by  each  section. 

Section  1 . The  program  is  initialized  by  an  access 
statement  (*#RUN  *=(ULIB)GRADLIB/TSS ,R)  which  is  used  to 
gain  access  to  routines  used  by  the  program.  Specifically, 
access  is  gained  to  the  Air  Force  Institute  of  Technology- 
program  library  which  contains  the  matrix  alegebra  routines 
used  to  compute  the  seventy- three  materials  sub- 
classification quantities. 

Five  function  calls  are  obtained  by  the  access 
statement.  These  include  MATREAD,  MATWRITE,  MATINIT, 

MATADD,  and  MATMULT.  Each  function  call,  when  used,  must 
be  in  a format  compatible  with  the  accessed  program. 

The  MATREAD  function  call  is  used  to  read  values 
into  a specified  matrix  from  a file.  The  format  of  the 
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function  call  is  MATREAD  (NAME,  ROW,  COL,  FILE,  RSTART , 

RSTOP,  CSTART,  CSTOP,  FMT)  where: 

NAME  = the  name  of  the  matrix  which  data  values 
are  to  be  read  into, 


ROW 


the  number  of  rows  in  NAME 


COL 


the  number  of  columns  in  NAME 


FILE  = the  file  code  of  the  data  file  to  be  read, 

RSTART  = the  beginning  row  in  NAME  to  receive  values, 

RSTOP  = the  ending  row  in  NAME  to  receive  values, 

CSTART  = the  beginning  column  in  NAME  to  receive 
values , 

CSTOP  = the  ending  column  in  NAME  to  receive 
values , and 

FMT  = the  format  to  be  used. 

MATWRITE  function  calls  write  values  of  a specified 


matrix  (NAME)  to  a file  (FILE).  The  format  of  the  MATWRITE 
call  is  MATWRITE  (NAME,  ROW,  COL,  FILE,  RSTART,  RSTOP, 
CSTART,  CSTOP,  FMT). 

The  MATADD  function  call  is  used  to  add  two  matrices 
in  the  form:  [C]  = [A]  + [B].  The  format  of  MATADD  is 
MATADD  (A,  ROW,  COL,  B,  C)  where: 

A = the  name  of  the  matrix  whose  data  values 

are  to  be  added  to  B, 


ROW 


the  number  of  rows  in  each  matrix 


COL  = the  number  of  columns  in  each  matrix 


B 


the  name  of  the  matrix  to  be  added  to  A, 
and 


C 


the  name  of  the  resulting  matrix. 
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MATMULT  performs  scalar  multiplication  of  two 
matrices.  The  format  of  the  MATMULT  call  is  MATMULT 
(MNAME,  MROW , MCOL,  FACTOR,  RSTART,  RSTOP,  CSTART,  CSTOP, 

0)  where: 

MNAME  — the  name  of  the  matrix  to  be  used  as  the 
multiplicand , 

MROW  = the  number  of  rows  in  MNAME, 

MCOL  = the  number  of  columns  in  MNAME, 

FACTOR  = the  scalar  multiplier, 

RSTART  sr  the  first  row  of  MNAME  to  be  used, 

RSTOP  = the  last  row  of  MNAME  to  be  used, 

CSTART  = the  first  column  of  MNAME  to  be  used, 

CSTOP  = the  last  column  of  MNAME  to  be  used,  and 

0 = the  argument  which  specifies  scalar 

multiplication. 

Lastly,  the  function  call  MATINIT  initializes 
all  cells  of  a specified  matrix  to  an  assigned  value.  The 
format  of  this  function  call  is  MATINIT  (NAME,  ROW,  COL, 
VALUE,  RSTART,  RSTOP,  CSTART,  CSTOP)  where  the  variable 
names  are  as  previously  defined  and  VALUE  is  the  initialized 
value.  A complete  listing  of  the  accessed  program  is 
contained  in  Appendix  D. 

Next,  an  overview  of  the  program  is  provided  in  the 
program  statements  for  use  by  others  performing  work  with 
or  on  the  program.  The  overview  and  subsequent  program 
documentation  will  enable  that  person  to  quickly  familiarize 
himself  with  the  program  and  its  logic.  The  overview 


57 


consists  of  a purpose  statement,  a performance  statement, 
and  a listing  and  description  of  the  variable  names  used 
within  the  program.  A detailed  description  of  each 
variable  name  and  its  function  will  occur  within  the 
following  sections  as  appropriate.  An  understanding  of  ho w 
the  files  and  arrays  are  constructed  is  a prerequisite  for 
manipulating  the  program.  A listing  of  section  1 is 
displayed  in  Figure  5* 

Section  2.  Section  2 begins  with  a documentation  statement 
(Figure  6)  immediately  followed  by  four  declarative 
statements.  The  declarative  statements  direct  the  computer 
to  establish  storage  space  on  its  current  file.  Storage 
space  is  thereupon  established  in  matrix  format  in  the 
following  manner.  The  words  REAL  and  CHARACTER  specify  the 
type  of  data  to  be  stored  and  how  that  data  is  to  be 
interpreted  by  the  computer.  REAL  specifies  that  the  data 
to  be  stored  are  numeric  characters  and  that  the 
characters  are  to  be  treated  as  real  numbers.  The  word 
CHARACTER  specifies  that  alphabetic  and/or  numeric 
characters  are  to  be  stored  but  that  all  entries  are  to  be 
treated  as  alphabetic  characters.  The  size  of  each  matrix 
is  established  by  the  numbers  enclosed  within  parentheses 
following  each  variable  name. 

For  example,  as  the  computer  reads  across  the  first 
declarative  line  it  will  establish  a matrix  entitled  DATA. 
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VO 


1 0*#RUN 

2 OC  THE 
30C 

4 OC 

5 OC 

6 OC 

7 OC 

8 OC 

9 OC 
100C 
1 IOC 
1 20C 
1 30C 
1 4 OC 
1 5 OC 
1 60C 
1 70C 
180C 

1 9 OC 
200C 

2 1 OC 
2 2 OC 
2 3 OC 
240C 
2 5 OC 
2 60C 
2 7 OC 
2 80C 

2 9 OC 

3 OOC 
3 1 OC 
3 2 OC 
3 3 0C 
3 4 OC 
3 5 OC 


*=  (UL IB ) GRADL IB / T S S , R 

FOLLOWING  PROGRAM  IS  DESIGNED  TO  MANIPULATE  DATA  RECEIVED  BY  THE 
JOINT  AERONAUTICAL  MATERIALS  ACT IVIT Y ( JAMAC ) PER  REPORTING  RQMTS 
ESTABLISHED  BY  AND  FOR  THE  DEFENSE  MATERIALS  SYSTEM  (DMS).  THE 
PROGRAM  WILL  MANIPULATE  DATA  OF  THE  FORM  AND  CONTENT  OF  FORM  DMS-4A , 
"STATEMENT  OF  CONTROLLED  MATERIALS  REQUIREMENTS  FOR  CLASS  "A"  PRODUCTS 
PRODUCTION  OR  RESEARCH  AND  DEVELOPMENT." 


THE  PROGRAM  WILL  - 1)PRINT  THE  NAME,  ADDRESS  AND  CONTROL  if  OF 
EACH  REPORTING  CONTRACTOR  ENTERED  DURING  DATA  INPUT;  2)  STORE  AND 
PRINT  CONTROLLED  MATERIALS  FACTORS  FOR  DMS  PROGRAMS  A-I,  A-2,  A-6, 

A- 7 , C-2 , C-3 , C-9 ; 3)  PRINT  AND  TOTAL  REPORTED  MATERIALS  QUANTITIES 

TO  SIMPLIFY  INPUT  DATA  AUDITING  PROCEDURES;  4)  EMPLOY  MATRIX 
ALGEBRA  TO  COMPUTE  AND  PRINT  SPECIFIC  MATERIALS  REQUIREMENTS  IN 
SIMILAR  FORM  AND  CONTENT  OF  FORMS  DD-6I4,  AND  614-1,  "MATERIALS 
REQUIREMENTS . " 

EACH  FUNCTION/SUB-ROUTINE  IS  DOCUMENTED  BY  COMMENT  LINES  PRECEDING 
DOCUMENTATION  AREAS.  EACH  COMMENT  LINE  CONTAINS  A SHORT  PURPOSE  OR 
FUNCTION  STATEMENT  AND  A BRIEF  DESCRIPTION  FOR  SUPPORTING  OR 
CLARIFICATION  PURPOSES. 

LIST  AND  DESCRIPTION  OF  VARIABLE  NAMES* 
*************************************** 

ADDRESP  - AN  ARRAY  WHICH  CONTAINS  CONTRACTOR  ADDRESSES  AND  CONTROL 
NUMBERS  FOR  VERIFICATION  PURPOSES. 

ADDRES  - FILE  WHICH  CONTAINS  INFORMATION  FOR  ADDRESP. 

CONTRNO  - CONTRACTOR  CONTROL  NUMBER. 

DATATOT  - AN  ARRAY  WHICH  CONTAINS  TOTALLED  CONTRACTOR  INPUT  DATA. 
DATA  - AN  ARRAY  FOR  INPUT  OF  CONTRACTOR  DATA. 

FACTA1  - FILE  WHICH  CONTAINS  A-l  PROGRAM  FACTORS. 

FACTA2  - " " " A-2  " 

FACTA6  - " " " A-6 


Ox 

O 


3 6 0C 

FACTA  7 

n ii 

" A-  7 

it 

tt 

3 7 OC 

FACTC2 

it  ii 

" C-2 

it 

II 

3 80C 

FACTC3 

ti  n 

" C-3 

• i 

It 

3 90C 

FACTC9 

it  ii 

" C-9 

it 

II 

4 0 OC 

FACT1 

AN  ARRAY 

FOR  STORAGE  OF 

DATA 

FOR 

THE 

A- 1 PROGRAM. 

4 1 OC 

FACT  2 

t!  tl 

it 

II  II 

it 

it 

tt 

A-  2 

4 2 OC 

FACT3 

ft  tl 

it 

It  M 

n 

it 

tt 

A-  6 

4 3 OC 

FACT  4 

II  II 

it 

II  It 

tt 

it 

tt 

A-7  " 

4 4 OC 

FAC  T 5 

ft  ft 

tt 

tl  II 

tt 

it 

n 

C~  2 " 

4 5 OC 

FACT6 

It  It 

>t 

11  It 

n 

it 

it 

C-3  M 

4 6 OC 

FACT  7 

It  tl 

tt 

II  tl 

ii 

n 

it 

C-9  " 

4 7 OC 

GDATATOT- 

AN  ARRAY 

WHICH 

CONTAINS 

TOTALLED 

CONTRACTOR  INPUTS 

4 80C 

QTOT 

AN  ARRAY 

WHICH 

CONTAINS 

QTRLY 

COLUMN 

TOTALS . 

490C 

500C 

ACCESS  STATEMENT  - TO 

GAIN 

ACCESS  TO 

THE  AIR 

FORCE 

INSTITUTE  OF 

5 1 OC 
5 2 OC 
5 30C 
5 4 OC 
5 5 OC 


TECHNOLOGY ( AFIT ) PROGRAM  LIBRARY  WHICH  CONTAINS  MATRIX  ALGEGRA 


PROGRAMS  USED. 
AS  APPROPRIATE. 
PROGRAM/ROUTINE 


PROGRAM  NAME  AND  ROUTINE (S)  USED  WILL 
REFER  TO  APPROPRIATE  THESIS  APPENDIX 
USED  (SEE  LINE  NUMBER  10). 


BE  IDENTIFIED 
FOR  LISTING  OF 


Figure  5 


Computer  Listing  Section  1 


560C  DECLARATIVE  STATEMENT  - ESTABLISHES  STORAGE  SPACE  ON  CURRENT 
570C  FILE  IN  MATRIX  FORMAT;  EITHER  REAL  NUMBERS  OR  ALPHA  CHARACTERS. 

5 80C 

590  REAL  DATA(8,4) ,QT0T(4) , DATA TOT (8 , 4 ) , FACT  1 ( 9 , 9 ) 

600  REAL  FACT2 (9 , 9) , FACT3 (9 , 9) , FACT4 (9 , 9) , FACT5 (9 , 9) 

610  REAL  FACT6 (9 , 9) ,FACT7 (9 , 9) ,GDATATOT(8 , 4) 

620  CHARACTER  ADDRESP*3 0 ( 3 45 , 2 ) , CONTRNO * 1 9 

6 3 OC 


6 4 OC 
6 5 OC 
6 6 OC 

670  CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CALL/ATTACH  STATEMENT  - CALLS  SUBROUTINES  ENCLOSED  WITHIN 
QUOTATION  MARKS  TO  CURRENT  FILE. 


680 
690 
700 
710 
720 
730 
740 
7 5 OC 
7 6 OC 
770  C 
7 80C 
7 90C 


ATTACH ( 1 1," 7 8A55 /FACTA  1 
ATTACH (1 2, "78A55/FACTA2 
ATTACH(13, "7 8A 55/FACTA 6 
ATTACH (14, " 7 8A 5 5 /FACTA 7 
ATTACH ( 15, "78A55/FACTC2 
ATTACH ( 16, "78A55/FACTC3 
ATTACH(17, "78A55/FACTC9 
ATTACH ( 18, "78A55/ADDRES 


.1. 
,1, 
, 1, 
,1, 
, 1, 
, 1, 
.1, 
. 1, 


0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 


,) 

.) 

,) 

.) 

,) 

,) 

,) 

,) 


READ  STATEMENT  - READS  THE  VARIOUS 
THE  CURRENT  FILE. 

NAME  "USERLIB"  AND 


FACTOR  MATRICES  ONTO 
REFER  TO  APPENDIX  LISTING  BY  PROGRAM 
ROUTINE  "MATREAD" . 


8 00  M=MATREAD ( FACT  1 , 9,9,11,0,0,0,0,"(V)") 
810  M=MATREAD (FACT2, 9, 9, 1 2 , 0 , 0 , 0 , 0 , " ( V ) " ) 
82  0 M=MATREAD(FACT3, 9,9,13,0,0,0,0,"  (V)") 
830  M=MATREAD(FACT4, 9, 9, 1 4 , 0 , 0 , 0 , 0 , " ( V ) " ) 
84  0 M=MATREAD ( FACT5 ,9,9 , 1 5 , 0,  0, 0, 0,  " (V) ") 
850  M=MATREAD (FACT 6 ,9,9, 1 6 , 0 , 0 , 0 , 0 , " ( V ) " ) 
8 60  M=MATREAD ( FACT 7,9,9, 1 7 , 0 , 0 , 0 , 0 , " ( V ) " ) 
8 7 OC 


Figure  6 
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The  matrix  will  consist  of  eight  rows  and  four  columns  for 
the  storage  of  numeric  characters  to  he  treated  as  real 
numbers.  The  same  operation  is  continued  for  the  next  two 
REAL  declaration  lines.  The  CHARACTER  declaration  line 
accomplishes  a similar  function  except  that  the  maximum 
amount  of  alpha-numeric  characters  to  he  stored  per  field 
is  specified.  The  ADDRESP*30(3^5 »2)  statement  means  that 
a matrix  of  three  hundred  forty-five  lines  with  two  fields 
is  created  and  that  each  field  is  limited  to  thirty 
characters . 

Immediately  following  the  CALL/ ATTACH  documentation 
statement  are  eight  lines  similarly  titled.  Each  CALL/ 
ATTACH  line  instructs  the  computer  to  locate  and  read  the 
file  whose  name  is  enclosed  hy  parentheses.  During  a 
program  run,  for  example,  the  computer  will  locate  the 
permanent  file  entitled  FACTA1  stored  under  USERID  78A55 
and  transfer  that  file  to  its  current  file  with  an  assigned 
file  code  of  11 . 

The  next  series  of  lines  initialized  hy  M = MATREAD 
instruct  the  computer  to  read  the  file  names  enclosed  by 
parentheses.  For  example,  the  first  line  of  the  MATREAD 
series  instructs  the  computer  to  read  the  file  FACT1  as 
a nine  hy  nine  matrix  using  FORMAT  (V)  free-field  read 
instructions  from  a file  assigned  the  file  code  of  11. 

The  two  series  of  CALL/ATTACH  and  MATREAD  statements 
perform  a crucial  function  during  computer  operations. 
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The  CALL/ ATTACH  statements  bring  the  identified  files  from 
the  computer's  permanent  file  to  its  current  file  under 
the  assigned  file  code.  The  MATREAD  statements  thereupon 
read  the  information  from  the  assigned  file  code  and  store 
that  information  under  the  stated  file  name  on  the  current 
file.  This  transfer  of  information  from  one  file  to 
another  enables  the  computer  to  perform  matrix  algebra 
functions  each  time  the  program  is  run.  This  stems  from 
the  fact  that  at  the  end  of  each  computer  run,  each  variable 
name  file  contains  data  which  must  be  purged  or  erased. 

Each  program  termination  accomplishes  the  purge  of  current 
file  contents. 

At  this  point,  the  contents  of  files  FACTA1 , FACTA2 , 
FACTA6,  FACTA7,  FACTC2 , FACTC3 , and  FACTC9  require 
explanation  to  enhance  understanding  of  the  matrix  algebra 
functions  to  be  performed.  The  seven  named  files  are  nine 
by  nine  matrices  composed  of  the  factor  constants  used  to 
compute  the  s eventy- three  materials  sub-classifications. 

Each  matrix  consists  of  eighty-one  cells,  of  which,  seventy- 
three  contain  factor  constants.  Each  factor  constant  bears 
a direct  relationship  to  appropriate  DD  codes  as  shown  by 
Figure  7-  A listing  of  each  matrix  is  displayed  in 
Appendix  E. 

Section  3.  This  section  marks  a turning  point  in  program 
function.  Program  instructions  to  the  computer  begin  to 
generate  system  output  (Figure  8). 
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880C  READ  STATEMENT  - READS  THE  CONTRACTOR  ADDRESS  LIST  AND 
890C  CONTROL  NUMBERS  ENTERED  DURING  INPUT. 

9 OOC 

910  DO  1 1=1 , 345 

920  READ  (18, 1030)  ( ADDRESP ( I , K)  , K=  1 , 2) 

930  1 CONTINUE 
9 4 OC 

950  PRINT, "THE  FOLLOWING  IS  THE  CONTRACTOR  ADDRESS  LIST" 

960  PRINT, "*********************************************" 

9 7 OC  PRINT  STATEMENT  - PRINTS  ADDRESSES  AND  CONTROL  NUMBERS. 

980C 

990  DO  2 1=1 ,345 

1000  PRINT  1030 , (ADDRESP (I , K) ,K=1 , 2) 

1010  2 CONTINUE 

1020  1030  FORMAT (1X,A30,3X,A30) 

1025  PRINT  700 
1027  700  FORMAT(lHl) 

1030C 

^ 1 04 OC  PRINT  STATEMENT  - PRINTS  PROGRAM  FACTORS  IN  MATRIX  FORMAT 

1050C  FOR  VERIFICATION  OF  FACTORS  BY  PROGRAM  USER.  ALL  THE 
1060C  FOLLOWING  "MATWRITE"  STATEMENTS  ARE  USED  TO  ACCOMPLISH  THE 
1070C  SAME  FUNCTION.  REFER  TO  APPENDIX  LISTING  BY  PROGRAM  NAME 
1080C  "USERLIB"  AND  ROUTINE  "MATWRITE." 

1090C 

1100  PRINT,"  " 

1110  PRINT, "A-l  PROGRAM  FACTORS;" 

1120  M=MATWRITE ( FACT  1 , 9,9,42,0,0,0,0,"(9(F6.3,2X))") 

1130  PRINT,"  " 

1140  PRINT, "A-2  PROGRAM  FACTORS:" 

1150  M=MATWRITE (FACT 2, 9,9,42,0,0,0,0,"(9(F6.3,2X))") 

1160  PRINT,"  " 

1170  PRINT, "A-6  PROGRAM  FACTORS:" 

1180  M=MATWRITE ( FACT3 , 9 , 9,42,0,0,0,0,"(9(F6.3,2X))") 

1190  PRINT,"  " 

1200  PRINT, "A-7  PROGRAM  FACTORS:" 

1210  M=MATWRITE (FACT4, 9, 9,42,0,0,0,0,"(9(F6.3,2X))") 


1220  PRINT,"  " 

1230  PRINT, "C-2  PROGRAM  FACTORS:" 

124  0 M=MATWRITE (FACT 5 , 9 , 9 , 4 2 , 0 , 0 , 0 , 0 , " ( 9 ( F6 . 3 , 2X) ) " ) 
1250  PRINT,"  " 

1260  PRINT, "C-3  PROGRAM  FACTORS:" 

1270  M=MATWRITE (FACT 6, 9,9,42,0,0,0,0,"(9(F6.3,2X))") 
1280  PRINT,"  " 

1290  PRINT, "C-9  PROGRAM  FACTORS:" 

1300  M=MATWRIT E ( FACT 7 , 9,9,42,0,0,0,0,"(9(F6.3,2X))") 
os  1310  PRINT,"  " 

O 1320C 

1325  PRINT  700 

1330C  START  TO  ENTER  CONTRACTOR  DATA 
1340  PRINT,"  " 

1350C 


Figure  8 
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The  three  lines  beginning  with  DO  1 I = 1,345 
initiates  a loop  to  read  the  content  of  the  file  ADDRES. 
Simply  stated,  the  three  line  series  instructs  the  computer 
to  transfer  the  information  brought  to  the  current  file  by 
a CALL/ATTACH  statement  and  to  transfer  that  information  in 
ADDRES,  file  code  18,  to  the  file  named  ADDRESP.  The 
computer  thereupon  reads  and  transfers  the  information  by 
reading  three  hundred  forty-five  lines  of  data  consisting 
of  two  fields . 

After  completing  the  loop,  the  next  eight  lines 
of  program  instruction  initiate  an  output  sequence.  The 
first  two  PRINT  statements  cause  the  computer  to  print  the 
material  enclosed  by  quotation  marks.  Next,  a loop  to 
print  the  contents  of  ADDRESP  begins.  Specifically,  the 
loop  instructs  the  computer  to  print  three  hundred  forty- 
five  lines  of  two  field  data.  The  next  line,  1030  FORMAT 
(1X,A30 ,3X,A30) , specifies  the  format  to  be  followed  while 
printing  takes  place.  Output  format  consists  of  two  fields 
of  data  composed  of  up  to  thirty  alpha-numeric  characters 
separated  by  three  typed  spaces.  The  PRINT  700  line  insures 
that  the  next  set  of  system  output  will  begin  on  a new 
page. 

Next,  a series  of  twenty- two  statements  cause 
system  output  of  the  material  contained  in  files  FACT1 , 

FACT2 , FACT3,  FACT4,  FACT5,  FACT6 , and  FACT7.  These  files 
contain  the  factor  constants  called  to  the  current  file 
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by  the  CALL/ATTACH  statements  described  in  Section  2.  The 
PRINT  statements  followed  by  quotation  marks  operate  as 
previously  described.  The  lines  beginning  with  M = MATWRITE 
directs  the  computer  to  print  the  file  name  enclosed  by 
parentheses  and  specifies  output  format. 

For  example,  the  first  MATWRITE  line  provides  the 
following  instructions.  Print  the  nine  by  nine  matrix 
entitled  FACT1  to  three  decimal  places  with  two  spaces 
between  nine  fields  of  data. 

To  summarize,  this  section  causes  system  output  of 
files  ADDRES  and  FACTA1  to  FACTC9*  This  routine  will 
enable  users  to  quickly  identify  those  contractor's  reports 
entered  as  input  data  and  to  verify  the  accuracy  of  factor 
constants  used  to  compute  materials  sub-classification 
amounts . 

Section  4.  Section  4 provides  the  means  by  which  data  in 
the  form  of  controlled  materials  estimates  are  input  to 
the  program  for  manipulation. 

Program  instructions  for  this  section  start  with 
the  line  beginning  with  M = MATINIT,  which  directs  the 
computer  to  initialize  the  file  GDATATOT  to  zero  (Figure  9)* 
Specifically,  the  area  enclosed  by  parentheses  states  that 
the  file  GDATATOT  is  composed  of  eight  rows  and  four  columns 
and  is  to  be  initialized  to  a value  of  zero  from  row  one 
to  row  eight  and  from  column  one  to  column  four.  The 
initialization  of  the  file  assures  the  accuracy  of  the 
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13  60  M=MATINIT (GDATATOT, 8, 4, 0,1,8,  1,4) 

1370  5 PRINT,"  " 

1380  READ , CONTRNO 
1390C 

1400C  LOGICAL  "IF”  STATEMENT  - ASSERTION  AND  CONTINGENT  STATEMENT 
1410C  PORTIONS  ARE  USED  TO  DETERMINE  WHICH  PROGRAM  FACTOR  MATRIX 
1420C  ARE  TO  BE  USED  TO  COMPUTE  DATA  OF  THE  FORM  AND  CONTENT  OF 
1430C  DD  FORMS  614  AND  614-1. 

1440C 

1450  IF ( CONTRNO. EQ. " 1 " ) GO  TO  50 
1460  IF(CONTRNO. EQ. "2")GO  TO  60 
1470  IF(CONTRNO. EQ. "6")GO  TO  70 
1480  IF( CONTRNO. EQ. "7 ")GO  TO  80 
1490  IF(CONTRNO. EQ. "8")GO  TO  90 
1500  IF ( CONTRNO . EQ . " 3 " ) GO  TO  100 
1510  IF ( CONTRNO . EQ . "9 ") GO  TO  110 
1520C 

1530  M=MATREAD (DATA , 8,4,5,0,0,0,0,"(V)") 

15  4 0C 


Figure  9 
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values  to  be  stored  in  that  location  as  the  file  is  used  to 
store  totaled  materials  requirements  estimates  for  each 
program. 

Directional  instructions  for  input  data  are  provided 
by  the  series  of  IF  statements.  The  IF  statements  direct 
input  data  to  appropriate  computation  locations  by  means 
of  the  numbered  code  enclosed  by  quotation  marks  for  each 
line  of  instruction.  The  first  IF  statement  asserts  that 
"IF"  CONTRNO  equals  1 , the  data  is  to  be  forwarded  to  the 
computation  location  initialized  by  50.  Contingency 
provisions  assure  that  should  CONTRNO  not  equal  1, 
succeeding  IF  statements  provide  directional  instructions. 
This  sequence  of  operation  requires  that  input  data  be 
prepared  in  a format  to  be  specified  later. 

Section  5.  Section  5 serves  the  function  of  providing  the 
user  the  means  to  verify  the  accuracy  of  input  data. 
Specifically,  the  data  input  from  DMS-4A  forms  is  printed 
directly  beneath  the  contractor  control  number.  By  using 
the  contractor  control  number  as  a cross-reference,  the 
user  can  compare  the  input  data  with  DMS-4A  forms  for 
errors  made  during  data  input.  Moreover,  the  location  of 
the  error  will  be  identified. 

During  system  output,  the  computer  is  instructed 

to  read  CONTRNO  and  to  print  the  statement  "ENTERED  DATA 

FOR  CONTRACTOR  #"  and  the  nineteen  digit  contractor  control 

number  (Figure  10).  The  computer  then  prints  the  eight 
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1550  PRINT  1060, CONTRNO 

1560  1060  FORMAT( IX, "ENTERED  DATA  FOR  CONTRACTOR  if  - ",A19//) 

1570C 

1580C  PRINT  STATEMENT  - PRINTS  DATA  ENTERED  IN  ORDER  TO  VERIFY 
1590C  CORRECTNESS  OF  DATA  ENTERED. 

1600C 

1610  M=MATWRITE (DATA, 8, 4,42,0,0,0,0,"(4(F14.1,2X))") 

1620C 

1630C  VALUE  ASSIGNMENT  - ZEROES  OUT  QTOT . 

1640C 

1650  DO  20  1=1 , 4 
1660  QTOT ( I ) =0 
1670  20  CONTINUE 
1680C 

1690C  DO  STATEMENT  - ADDS  THE  COLUMN  ENTRIES  SO  THAT  THE  USER 
1 700C  MAY  VERIFY  ACCURACY  OF  DATA  ENTERED.  THIS  USER  SPECIFIED 
^ 1710C  ROUTINE  SERVES  AS  A MEANS  TO  PERFORM  EXTERNAL  ACCURACY  AUDITS. 

1720C 

1 730  DO  30  J = 1 , 4 
1740  DO  40  1=1,8 
1750  QTOT (J)=QTOT (J )+D ATA ( I , J ) 

1760  40  CONTINUE 
1770  30  CONTINUE 
1780C 

1790C  PRINT  STATEMENT  - PRINTS  COLUMN  TOTALS. 

1800C 

1810  M=MATWRIT E (QTOT , 1,4,42,0,0,0,0,"(4(F14.1,2X))") 

1 8 2 OC 


Figure  10 
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rows  and  four  columns  of  input  data  for  that  contractor  hy 
means  of  the  MATWRITE  statement. 

The  next  operation  performed  is  the  addition  of  the 
column  totals  of  the  input  data.  This  user  specified  data 
manipulation  is  the  primary  method  of  performing  data  input 
accuracy  audits.  When  DMS-4A  forms  are  received,  each 
column  is  added  to  yield  a "99-line”.  Upon  receiving 
system  output  the  user  will  then  compare  the  "99-line" 
to  the  column  totals  produced  by  the  computer.  When 
discrepancies  are  noted  the  user  will  thereupon  compare  the 
data  input  to  the  DMS-4A  form  identified  by  the  contractor 
control  number. 

This  operation  is  performed  in  three  sequential 
steps.  First,  the  file  QTOT  is  initialized  by  means  of  a 
loop.  The  three  lines  beginning  with  DO  20  I = 1,4  directs 
the  computer  to  initialize  the  one  by  four  file  QTOT  to 
zero  and  to  proceed  to  the  next  series  of  program 
instructions.  Second,  the  eight  rows  and  four  columns  of 
data  are  added  and  stored  in  QTOT.  Finally,  the  MATWRITE 
statement  instructs  the  computer  to  print  the  value  of 
QTOT  in  four  fields  of  data  to  the  nearest  tenth.  This 
results  in  the  computer  added  column  totals  to  be  printed 
directly  beneath  the  input  data  for  each  contractor  control 
number. 

Section  6.  The  program  instructions  contained  in  Section  6 
generate  aggregate  totals  of  input  data  for  each  of  the 
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seven  programs  and  for  all  input  data.  The  program 
instructions  are  displayed  in  Figure  11. 

The  first  MATADD  statement  accomplishes  the 
following:  as  each  complete  set  of  input  controlled 

materials  requirements  estimates  is  read  by  the  computer, 
the  eight  rows  and  four  columns  of  data  from  file  DATA  is 
added  to  file  DATATOT.  This  operation  is  continued  until 
all  the  sets  of  input  data  for  each  program  is  read.  The 
file  DATATOT  thereupon  contains  the  total  amount  of 
controlled  materials  requirements  estimates  for  that  program. 
The  contents  of  DATATOT  is  subsequently  used  to  compute 
the  seventy- three  materials  sub-classification  amounts 
in  Section  7. 

The  next  MATADD  statement  accomplishes  a similar 
function  except  that  the  added  input  sets  are  contained  in 
file  GDATATOT.  The  file  GDATATOT  contains  the  total  of 
all  input  controlled  materials  requirements  for  all 
programs.  This  data  will  be  subsequently  printed  through 
the  use  of  a MATWRITE  statement  in  Section  7. 

Section  7.  Section  7 contains  the  program  instructions  to 
compute  the  seventy- three  materials  sub-classifications 
and  to  print  the  sub-classifications  and  the  total  estimated 
materials  requirements  for  all  the  programs. 

A routine  to  compute  and  print  the  seventy- three 
materials  sub-classifications  for  each  program  is  contained 
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1830C  COMMAND  STATEMENT  - PERFORMS  ADDITION  OF  ALL  ENTERED  DATA 
1840C  FOR  SPECIFIED  PROGRAMS.  REFER  TO  APPENDIX  LISTING  BY  PROGRAM 
1850C  NAME  "USERLIB"  AND  ROUTINE  "MATADD." 

1860C 

1870  M=MATADD (DATA, 8, 4 , DATATOT , DATATOT ) 

1880C 

1890  M=MATADD (DATA, 8, 4 , GDATATOT , GDATATOT ) 

1900C 

1910  GO  TO  5 
1920C 


Figure  11 
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in  this  section.  The  following  discussion  will  describe  the 
process  for  the  computation  and  printing  of  the  A-l  Program. 
Each  of  the  remaining  program  computational  routines  are 
identical  and,  therefore,  require  no  further  discussion. 

The  contents  of  Section  7 are  displayed  in  Figure  12. 

The  A-l  Program  routine  begins  with  a PRINT 
statement  which  provides  a title  heading  for  the  printed 
materials  sub-classifications.  The  following  series  of 
MATMULT  statements  cause  the  scalar  multiplication  of  files 
FACT1  and  DATATOT  to  yield  the  required  information.  The 

requirement  to  perform  scalar  multiplication  stems  from 
the  fact  that  files  FACT1  and  DATATOT  contain  the  factor 
constants  and  the  quarterly  materials  requirements  for  the 
A-l  Program,  respectively. 

The  actual  process  of  scalar  multiplication,  in 
effect,  multiplies  the  first  column  of  DATATOT  by  selected 
rows  and  columns  of  FACT1.  This  occurs  as  a result  of  the 
fact  that  only  the  s eventy- three  materials  sub- 
classifications of  the  base  quarter  are  required  for 
reporting  purposes.  Column  one  of  DATATOT  corresponds  to 
the  total  materials  requirements  of  all  reporting 
contractors  for  the  base  quarter  of  the  eight  reported 
material  classifications  for  that  program.  Refer  to  column 
(e)  of  Figure  1 for  clarification. 

For  example,  the  first  MATMULT  line  multiplies  cell 
(1,1)  of  DATATOT  by  the  factor  constants  contained  in  rows 
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1930C  COMMAND  STATEMENT  - THE  FOLLOWING  SERIES  OF  "MATMULT"  STATE- 
1940C  MENTS  WILL  CAUSE  MATRIX  MULTIPLICATION  OF  APPROPRIATE 
1950C  MATRICES.  REFER  TO  APPENDIX  LISTING  BY  PROGRAM  NAME  "USERLIB' 
1960C  AND  ROUTINE  "MATMULT." 

1970C 

1980  50  PRINT, "A-l  PROGRAM  COMPUTATIONS." 

1 990  C 

2 000  M “MATMULT ( FACT  1 ,9,9, DATATOT (1,1), 1,2,  1,9,0) 

2010  M =MATMULT (FACT  1 , 9,9, DATATOT (2 ,1), 3, 3,  1,9,0) 

2 0 20  M “MATMULT ( F ACT  1 , 9 , 9 , DATATOT ( 2 , 1), 4, 4,  1,5,0) 

2030  M “MATMULT (FACT1 , 9, 9 , DATATOT (3 ,1), 4, 4, 6, 7,0) 

2 04  0 M “MATMULT ( FACT  1 , 9,9, DATATOT (8 , 1), 4, 4, 8, 9,0) 

2 05  0 M “MATMULT ( FACT  1 , 9, 9, DATATOT (8 , 1), 5, 5, 1,2,0) 

2 060  M “MATMULT (FACT  1 ,9,9, DATATOT (4 , 1), 5, 5, 3, 9,0) 

2 0 70  M “MATMULT (FACT  1 , 9, 9, DATATOT (4 , 1), 6, 6, 1,3,0) 

2 0 80  M “MATMULT ( FACT  1 , 9, 9 .DATATOT (5  , 1), 6, 6, 4, 4,0) 

2 090  M=MATMULT (FACT  1 , 9,9, DATATOT (6  , 1), 6, 6, 5, 8,0) 

2 100  M “MATMULT (FACT  1 , 9, 9 .DATATOT (7 , 1), 6, 6, 9, 9,0) 

2 110  M “MATMULT (FACT1 ,9,9, DATATOT (7 , 1), 7, 9, 1,9,0) 

2 1 20C 

2130C  COMMAND  STATEMENT  - THE  FOLLOWING  SERIES  OF  "MATWRITE" 

2140C  STATEMENTS  WILL  CAUSE  A PRINT-OUT  OF  DATA  COMPATIBLE  WITH 
2150C  FORM  AND  CONTENT  REQUIREMENTS  OF  FORMS  DD  614  AND  614-1 
2160C  FOR  APPLICABLE  PROGRAMS. 

2170C 

2180  M “MATWRITE (FACT  1 ,9,9,42,0,0,0,0,"(9F14.2)") 

2190C 

2200C  COMMAND  STATEMENT  - THE  FOLLOWING  SERIES  OF  "MATINIT"  STATE- 
2210C  MENTS  WILL  ASSIGN  ZERO  VALUES  IN  ALL  CELLS  OF  DATATOT. 

2220C  REFER  TO  APPENDIX  LISTING  BY  PROGRAM  NAME  "USERLIB"  AND 
2230C  ROUTINE  "MATINIT." 

2240C 

2 2 50  M=MATINIT (DATATOT, 8, 4,0, 1,8,  1,4) 

2255  PRINT  700 
2260  GO  TO  5 


2270C 

2280  60  PRINT, "A-2  PROGRAM  COMPUTATIONS." 

2 2 9 0C 

2300  M=M ATMULT (FACT2,9,9, DATATOT ( 1 ,1), 1,2, 1,9,0) 
2310  M=MATMULT ( FACT2 , 9 , 9 , DATATOT ( 2 , 1), 3, 3, 1,9,0) 
2 32  0 M=M ATMULT ( FACT 2 , 9 , 9 , DATATOT ( 2 , 1), 4, 4, 1,5,0) 
2330  M=M ATMULT ( FACT2 , 9 , 9, DATATOT (3 , 1), 4, 4, 6, 7,0) 
2340  M =M ATMULT (FACT2, 9, 9, DATATOT (8 , 1), 4, 4, 8, 9,0) 
2350  M=M ATMULT (FACT 2, 9 , 9 .DATATOT (8 , 1),5,5, 1,2,0) 
2360  M=MATMULT ( FACT2 , 9 , 9 , DATATOT ( 4 , 1), 5, 5, 3, 9,0) 
2 3 70  M=M ATMULT ( FACT 2 , 9 , 9, DATATOT (4 , 1), 6, 6, 1,3,0) 
2 3 80  M=MATMULT (FACT2, 9, 9, DATATOT (5, 1), 6, 6, 4, 4,0) 
2 390  M=M ATMULT (FACT 2, 9 , 9 .DATATOT (6 , 1), 6, 6, 5, 8,0) 
2 4 00  M=M ATMULT ( FACT2 , 9 , 9 , DATATOT ( 7 , 1), 6, 6, 9, 9,0) 
2410  M=M ATMULT ( FACT2 , 9 , 9 , DATATOT ( 7 , 1), 7, 9, 1,9,0) 
2420C 

2430  M=MATWRITE (FACT 2, 9,9,42,0,0,0,0,"(9F14.2)") 
2440C 

-<j  2450  M=MATINIT  (DATATOT  , 8, 4, 0,  1, 8,  1 , 4) 

2460C 

2465  PRINT  700 
2470  GO  TO  5 
2480C 

2490  70  PRINT, "A-6  PROGRAM  COMPUTATIONS." 

2500C 

2510  M=M ATMULT (FACT 3, 9 , 9 , DATATOT (1  ,1), 1,2, 1,9,0) 
25  20  M=M ATMULT ( FAC T3, 9, 9, DATATOT (2,  1), 3, 3,  1,9,0) 
2 5 30  M=M ATMULT (FACT 3, 9,9, DATATOT (2 , i), 4, 4,  1,5,0) 
2540  M=M ATMULT (FACT3, 9 , 9 , DATATOT ( 3 , 1), 4, 4, 6, 7,0) 
2 55  0 M=M ATMULT (FACT 3, 9 , 9 .DATATOT (8  , 1), 4, 4, 8, 9,0) 
2 5 60  M=M ATMULT (FACT3, 9,9, DATATOT (8 , 1), 5, 5, 1,2,0) 
25  7 0 M=M ATMULT (FACT 3, 9, 9, DATATOT (4,  1), 5, 5, 3, 9,0) 
2 5 80  M=MATMULT (FACT3, 9 , 9 .DATATOT (4 , 1), 6, 6, 1,3,0) 
2590  M=M ATMULT (FACT 3, 9 , 9 .DATATOT (5 , 1), 6, 6, 4, 4,0) 
2 6 00  M-M ATMULT ( FACT 3 , 9 , 9 , DATATOT ( 6 , 1), 6, 6, 5, 8,0) 


2610  M=MATMULT (FACT3 , 9 , 9 , DATATOT ( 7 , 1), 6, 6, 9, 9,0) 
2620  M=»M  ATMULT (FACT 3, 9 , 9 , DATATOT ( 7 , 1), 7, 9, 1,9,0) 
2630C 

2640  M=MATWRITE(FACT3,9,9,42, 0,0,0,0,"(9F14.2)") 
2650C 

2660  M=M AT IN IT (DATATOT, 8, 4, 0,1,8, 1,4) 

2 67  0C 

2675  PRINT  700 
2680  GO  TO  5 
2690C 

2700  80  PRINT, "A-7  PROGRAM  COMPUTATIONS." 

2710C 

2 72  0 M=MATMULT (FACT 4, 9 , 9 , DATATOT ( 1 , 1 ) , 1 , 2 , 1 , 9 , 0 ) 
2 7 30  M=M ATMULT (FACT  4, 9 , 9 .DATATOT (2 ,1), 3, 3,  1,9,0) 
2 7 40  M=M ATMULT (FACT 4, 9 , 9, DATATOT (2 , 1), 4, 4,  1,5,0) 
2750  M=M ATMULT (FACT 4, 9 , 9 , DATATOT ( 3 , 1 ) , 4 , 4 , 6 , 7 , 0 ) 
2760  M=M ATMULT (FACT 4, 9, 9, DATATOT (8, 1), 4, 4, 8, 9,0) 
2 7 70  M=M ATMULT (FACT4, 9, 9,DATAT0T(8,  1), 5, 5,  1,2,0) 
^ 2780  M=M ATMULT (FACT4, 9, 9, DATATOT (4, 1) ,5, 5, 3, 9,0) 

cd  2790  M^MATMULT ( FACT4 ,9,9, DATATOT (4,1), 6, 6, 1,3,0) 
2800  M=M ATMULT (FACT 4, 9,9, DATATOT (5 ,1), 6, 6, 4, 4,0) 
2810  M=M ATMULT (FACT 4, 9 , 9, DATATOT (6 ,1), 6, 6, 5, 8,0) 
2820  M=M ATMULT (FACT 4, 9,9, DATATOT (7 , 1), 6, 6, 9, 9,0) 
2830  M=MATMULT (FACT4, 9,9,DATAT0T(7,1),7,9,1,9,0) 
2840C 

2850  M=MATWRITE (FACT 4, 9, 9,42,0,0,0,0," (9F14. 2)") 
2860C 

2870  M=MAT IN IT (DATATOT, 8, 4,0, 1, 8, 1,4) 

2880C 

2885  PRINT  700 
2890  GO  TO  5 
2900C 

2910  90  PRINT, "C-2  PROGRAM  COMPUTATIONS." 

2920C 

2930  M=M ATMULT (FACTS, 9 , 9, DATATOT (1,1), 1,2, 1,9,0) 


2 94  0 M=MATMULT (FACT5, 9 , 9 , DATATOT ( 2 , 1), 3, 3, 1,9,0) 
295  0 M=MATMULT (FACT5 , 9 , 9 , DATATOT ( 2 , 1), 4, 4,  1,5,0) 
2960  M=MATMULT (FACT5 ,9, 9, DATATOT (3 , 1), 4, 4, 6, 7,0) 
2 9 70  M=MATMULT (FACT5 , 9 , 9 , DATATOT (8 , 1), 4, 4, 8, 9,0) 
2 980  M=M ATMULT (FACT 5, 9, 9, DATATOT (8 , 1), 5, 5,  1,2,0) 

2 9 90  M =M ATMULT (FACT5, 9, 9, DATATOT (4 , 1), 5, 5, 3, 9,0) 

3 000  M=M ATMULT (FACT 5, 9, 9, DATATOT (4 ,1), 6, 6,  1,3,0) 
3010  M=M ATMULT (FACT5 , 9, 9, DATATOT (5 ,1), 6, 6, 4, 4,0) 
3 0 20  M=M ATMULT (FACT 5, 9 , 9 , DATATOT (6 , 1), 6, 6, 5, 8,0) 
3 03  0 M=M ATMULT (FACT5 , 9 , 9, DATATOT (7  , 1), 6, 6, 9, 9,0) 
3 04  0 M=M ATMULT ( FACT5 , 9 , 9 , DATATOT ( 7 , 1), 7, 9,  1,9,0) 
3050C 

3060  M=MATWRITE ( FACT5 , 9 ,9,42,0,0,0,0,"(9F14.2)") 
3070C 

3 080  M=M AT IN  IT (DATATOT, 8, 4, 0,1,8,  1,4) 

3090C 

3095  PRINT  700 
3100  GO  TO  5 
-o  3110C 

3120  100  PRINT, "C-3  PROGRAM  COMPUTATIONS." 

3130C 

3140  M=M ATMULT (FACT 6, 9, 9, DATATOT (1 , 1), 1,2,  1,9,0) 
3150  M=M ATMULT (FACT6, 9,9, DATATOT (2 , 1), 3, 3, 1,9,0) 
3160  M=M ATMULT (FACT 6, 9, 9, DATATOT (2,  1), 4, 4,  1,5,0) 
3170  M=M ATMULT (FACT 6, 9 , 9 , DATATOT (3,1), 4, 4, 6, 7,0) 
3180  M=M ATMULT (FACT 6, 9,9, DATATOT (8 , 1), 4, 4, 8, 9,0) 
3190  M=M ATMULT (FACT 6, 9 , 9 .DATATOT (8 , 1), 5, 5, 1,2,0) 
3200  M=M ATMULT (FACT 6, 9 , 9, DATATOT (4 ,1), 5, 5, 3, 9,0) 
3210  M =M ATMULT (FACT 6 , 9,9, DATATOT (4 , 1), 6, 6,  1,3,0) 
3220  M=M ATMULT (FACT 6, 9,9, DATATOT (5 , 1), 6, 6, 4, 4,0) 
3230  M=M ATMULT (FACT 6, 9 , 9 .DATATOT (6 , 1), 6, 6, 5, 8,0) 
3240  M=M ATMULT (FACT 6, 9 , 9, DATATOT (7 ,1), 6, 6, 9, 9,0) 
3250  M =M ATMULT (FACT6, 9,9, DATATOT (7 ,1), 7, 9, 1,9,0) 
3260C 

3270  M=M ATWRITE ( FACT6 , 9,9,42,0,0,0,0,"(9F14.2)") 


3280C 

3290  M=MATINIT (DATATOT, 8 , 4 , 0 , 1 , 8 , 1 , 4 ) 

3300C 

3305  PRINT  700 
3310  GO  TO  5 
332  OC 

3330  110  PRINT, "C-9  PROGRAM  COMPUTATIONS." 

3 3 4 0 C 

3350  M-MATMULT (FACT 7 ,9,9, DATATOT (1,1), 1,2, 1,9,0) 

3 3 60  M-MATMULT (FAC T 7 , 9, 9, DATATOT (2,  1), 3, 3, 1,9,0) 

33  70  M=M ATMULT ( FACT 7 , 9,9, DATATOT (2 ,1), 4, 4,  1,5,0) 

3380  M-M ATMULT (FACT 7 , 9 , 9 , DATATOT (3 , 1), 4, 4, 6, 7,0) 

3 3 90  M=M ATMULT ( FACT 7 , 9 , 9, DATATOT (8 , 1), 4, 4, 8, 9,0) 

3400  M-M ATMULT (FACT 7 , 9 , 9, DATATOT (8 , 1), 5, 5, 1,2,0) 

3410  M-MATMULT (FACT 7 , 9,9, DATATOT (4 , 1), 5, 5, 3, 9,0) 

3 420  M=M ATMULT ( FACT 7 , 9,9, DATATOT (4 , 1), 6, 6,  1,3,0) 

3 430  M=M ATMULT ( FACT 7 , 9 , 9, DATATOT (5 ,1), 6, 6, 4, 4,0) 

3 44  0 M-M ATMULT ( FACT 7 , 9,9, DATATOT (6 ,1), 6, 6, 5, 8,0) 

3450  M-MATMULT (FACT 7, 9 , 9, DATATOT (7 , 1), 6, 6, 9, 9,0) 

3460  M-MATMULT (FACT 7 , 9,9, DATATOT (7 ,1), 7, 9, 1,9,0) 

3470C 

3480  M-MATWRITE (FACT  7 , 9,9,42,0,0,0,0,"(9F14.2)") 

3490  PRINT,"  " 

3500C 

3510  M-MAT IN  IT (DATATOT ,8, 4, 0,1,8,  1,4) 

3520C 

3525  PRINT  700 

3530  PRINT, "TOTAL  QUARTERLY  CONTRACTOR  INPUTS  FOR  ALL  PROGRAMS 
3540  PRINT ,"************************************************** 
3550  M-MATWRITE (GDATATOT, 8,4,42,0,0,0,0,"(4(F14.1,2X))") 

3560  STOP 
3570  END 


Figure  12 


Computer  Listing  Section  7 


one  and  two,  columns  one  through  nine  of  FACT1 . Cell  (1,1) 
of  DATATOT  contains  the  total  requirements  of  carbon  steel 
shown  as  Item  10  in  Appendix  B.  The  rows  and  columns  of 
FACT1  contain  the  factor  constants  associated  with  the  DD 
codes  of  Item  10  in  the  same  appendix.  The  remaining  lines 
accomplish  the  same  function  for  each  of  the  eight  item 
codes.  The  specific  content  of  each  cell  multiplied  can 
be  determined  by  cross-reference  between  Appendices  B and  D. 

Upon  completion  of  all  MATMULT  computations,  the 
computer  is  directed  to  print  the  computed  amounts  by  a 
MATWRITE  statement.  Previous  discussion  of  MATWRITE 
operations  should  preclude  the  need  for  further  explanation 
of  this  process.  The  same  holds  true  for  the  following 
MATINIT  and  PRINT  700  statements. 

Each  of  the  following  routines  to  compute  and  print 
the  seventy- three  materials  sub-classifications  is  completed 
in  a sequential  manner  as  directed  by  the  IF  statements. 
Finally,  the  computer  prints  the  content  of  GDATATOT  and 
terminates  operation.  A complete  listing  of  the  computer 
program  is  contained  in  Appendix  F.  A one  page  sample  of 
each  of  the  four  types  of  system  output  is  contained  in 
Appendix  G. 

Running  the  Program 

Once  operationalized,  the  user  must  simply  insure 
that  automatic  data  processing  cards  to  input  data  are 
prepared  in  order  to  run  the  program.  This  section  will 


81 


discuss  the  format  requirements  for  input  data  and  provide 
instructions  for  reading  system  output. 

Input  format.  The  input  format  of  the  data  is  quite  simple 
and  data  may  be  read  directly  from  DMS-4A  forms  if  the 
following  simple  rules  are  kept  in  mind,  see  Figure  1. 

First,  the  contractor  control  number  is  to  be 
entered.  The  control  number  must  not  exceed  nineteen 
spaces.  This  can  be  accomplished  by  deleting  the  space 
separating  the  priority  code  and  program  identification 
code  from  the  control  number.  Next,  controlled  materials 
requirement  estimates  are  entered  by  reading  from  left  to 
right  from  columns  (e)  through  (h)  one  line  at  a time. 

Each  column  entry  must  be  separated  by  a comma.  Zeroes 
must  be  used  to  indicate  blank  columns  or  rows  due  to  no 
requirements  for  that  material  in  that  particular  quarter. 
Finally,  when  all  data  for  a particular  program  is  entered 
an  appropriate  program  identification  end  file  code  must 
be  entered.  One  data  card  must  be  prepared  for  each  of  the 
preceding  entries.  Specifically,  one  card  for  the  control 
number,  each  line  of  materials  requirements,  and  the  program 
identification  end  file  code.  A sample  of  input  data  and  a 
listing  of  appropriate  program  identif ication  codes  are 
contained  in  Figures  13  and  lb,  respectively. 

System  output.  The  output  format  of  each  computer  run 
consists  of  the  following  in  the  order  presented: 
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D0A1-21-24-194-8484 

30,32,32,32 

35,37,37,37 
108.6,109,110,110.2 
2386,2386,2570,2570 
2852,3071 ,3071 ,3071 
0,0, 0,0 

10013,10784,10790,10800 

281983,28190.5,303674,303674 

Figure  13  Sample  Input  Data 
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Program  Identification 


Data  Code 


A-l  1 

A- 2 2 

A- 6 6 

A- 7 7 

C-2  8 

C-3  3 

C-9  9 


Figure  14  Program  Identification  Codes 
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contractor  address  list,  program  factor  constant  list, 
material  requirements  estimates  by  contractor  control  number 
for  each  program  identification  code,  the  seventy-three 
materials  sub-classification  amount  for  each  program,  and 
a total  of  all  input  materials  requirements  estimates. 

The  reading  and  transposition  of  the  sub- 
classification amounts  for  each  program  to  DD  Forms  6l4 
and  614-1  is  a simple  task.  Each  amount  printed  corresponds 
directly  to  the  DD  code  location  displayed  in  Figure  ?. 

For  example,  the  first  line  of  system  output  consists  of 
DD  codes  1200  to  1231.  Each  DD  code  amount,  then  can  be 
transposed  to  the  appropriate  block  of  DD  Forms  6l4  and 
614-1 . 

Summary 

The  FORTRAN  Y computer  program  was  developed  on 
the  Honeywell  635  computer  located  in  Air  Force  Logistics 
Command  Headquarters.  The  FORTRAN  Y computer  programming 
language  is  adaptable  to  other  computer  systems  which 
accept  FORTRAN  based  program  languages. 

The  computer  program  consists  of  seven  sections. 

The  sections  provide  an  overview  of  program  capabilities, 
call  off-line  storage,  print  contractor  addresses,  direct 
input  data  to  computation  locations,  print  input  data, 
total  input  materials  requirements  estimates,  and  compute 
the  seventy- three  materials  sub-classification  amounts. 
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The  program  employs  matrix  algebra  routines 
through  access  to  computer  programs  stored  in  the  Air 
Force  Institute  of  Technology  program  library.  Specifi- 
cally, five  function  calls  are  used.  The  function  calls 
are  MATREAD,  MTV/RITE,  MATINIT , MATADD , and  MATMULT . 

System  output  consists  of  a contractor  address 
list,  a program  factor  constant  list,  a materials 
requirements  estimate  list  for  each  contractor,  a materials 
sub-classification  list  for  each  program,  and  a total 
input  materials  requirement  estimate  list  for  all  programs. 
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APPENDIX  D 


MATRIX  ALGEBRA  FUNCTIONS 
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10  FUNCTION  MATREAD (A, NROW ,MCOL,NFILE, N START , NSTOP, 
2 O&MSTART , MSTOP , FMT ) 

30  DIMENSION  A(NR0W,1) 

40  CHARACTER  FMT*80 
50  MATREAD=2 
60  NF=NF ILE 
70  NS=NS TART 
80  NP= NSTOP 
90  MS  =M START 
100  MP=MST0P 

110  IF(NF.LT. 1 .OR.NF.GT. 43)NF-05 
120  IF(NR0W.LE. 0. OR.MCOL.LE. 0)GO  TO  55 
130  IF (NS . LE. 0)NS=1 
140  IF(MS.LE.0)MS=1 

150  IF (NP . LE . 0 . OR. NP . GT . NROW ) NP=NROW 
160  IF ( MP . LE • O.OR.MP.GT.MCOL) MP=MCOL 
170  IF ( N S • GT . NP . OR . MS . GT • MP ) GO  TO  60 
eg  180  IF  ( FMT.  EQ  . " ")FMT  = "(V)" 

190  DO  25  I=NS , NP 

200  25  READ (NF , FMT, END  = 50) (A(I , J)  , J=MS,  MP) 

210  GO  TO  40 
220  40  M ATREAD= 1 
230  RETURN 

240  50  M=MATERROR(l 3, 10, I , J) 

250  GO  TO  40 

260  55  M=M AT ERROR (13,1,0,0) 

270  RETURN 

280  60  M=M AT ERROR (13, 3)0,0) 

290  RETURN 
300  END 


310  FUNCTION  MATWRITE ( A , NROW , MCOL , NFI LE , N START , NSTOP , 
3 20  & M START , MSTOP , FMT ) 

330  DIMENSION  A(NROW,l) 

340  CHARACTER  FMT*80 

350  MATWRITE=2 

360  NF=NFILE 

370  N S=N  START 

380  NP=N STOP 

390  MS=MSTART 

400  MP  =M  STOP 

410  IF(NF .LT. 1 . OR. NF . GT . 43)NF=06 
420  IF ( NROW . LE . 0 . OR . MCOL . LE . 0 ) GO  TO  50 
430  IF(NS.LE.0)NS=1 
440  IF(MS.LE. 0)MS=1 

450  IF(NP.LE. O.OR.NP.GT.NROW)NP=NROW  ' 

460  IF(MP.LE. O.OR.MP.GT.MCOL) MP=M  COL 
470  IF(NS.GT.NP.OR.MS.GT.MP)GO  TO  55 
480  I F ( FMT . NE . " ")GO  TO  25 

Co  490  I B IG=N  S 
^ 500  JBIG  = MS 

510  KI = 1 

520  IF(IBIG. EQ.NP)KI=0 
530  K J= 1 

540  IF( JBIG. EQ.MP)KJ=0 
550  DO  10  I =N S+KI , NP 
560  DO  10  J =M S+K J , MP 

570  IF ( ABS (A(I , J) ) .LE. ABS (A(IBIG, JBIG) ) )GO  TO  10 

580  IB IG=I 

590  JB IG=J 

600  10  CONTINUE 

610  X=9 . 999999 

620  DO  15  J = 1 , 4 

630  IF( ABS (A(IBIG, JBIG) ) .LE. X)GO  TO  20 
640  15  X=X*1E3 

650  20  GO  TO  ( 2 1 , 2 2 , 2 3 , 2 4 ) , J 
660  21  FMT  = "( 10F7. 3)  " 


VO 

o 


670  GO  TO  25 

680  22  FMT=" (7F10. 3)" 

690  GO  TO  25 

700  23  FMT= " ( 5F 1 4 . 3)" 

710  GO  TO  25 

720  24  FMT  = " (5E14.  7)" 

730  25  DO  30  I=NS,NP 

740  30  WRITE(NF, FMT) (A(I, J) , J=MS,MP) 
750  MATWRITE=1 
760  RETURN 

770  50  M=MATERROR (14, 1,0,0) 

780  RETURN 

790  55  M=M AT ERROR (14,3,0,0) 

800  RETURN 
810  END 


820  FUNCTION  MATINIT ( A, NROW ,MCOL , VALUE , NSTART , NSTOP , MSTART , 
830&MSTOP ) 

840  DIMENSION  A(NROW,l) 

850  MATINIT=2 
860  N S =N  START 
870  NP=N STOP 
880  MS=MSTART 
890  M P =M STOP 

900  I F ( N ROW .LE. O.OR.MCOL.LE. 0)GO  TO  50 

910  IF(NS.LE.O.OR.NS.GT.NROW)NS=1 

920  IF (MS . LE . 0 . OR . MS . GT . MCOL ) MS= 1 

930  IF ( NP • LE . 0 . OR . NP • GT . NROW) NP=NR0W 

940  IF(MP.LE.O.OR.MP.GT.MCOL) MP=MC0L 

950  IF(NS.GT.NP.OR.MS.GT.MP)GO  TO  55 

960  DO  25  I =N S , N P 

970  DO  25  J =M S , MP 

980  25  A ( I , J ) =VALUE 

990  MATINIT=1 

1000  RETURN 

1010  50  M=M AT ERROR (5 , 1 , 0 , 0 ) 

1020  RETURN 

1030  55  M=MATERROR ( 5 , 3 , 0 , 0 ) 

1040  RETURN 
1050  END 


1060  FUNCTION  MAT ADD (A, NROW , MCOL , B f C ) 

1070  DIMENSION  A ( NROW , 1 ), B (NROW , 1 ), C (NROW , 1 ) 
1080  ISIGN=l;GOTO  10 

1090  ENTRY  M ATS UBTR ( A, NROW , MCOL , B , C ) 

1100  I S IGN=- 1 
1110  10  MAT ADD =2 

1120  IF (NROW . LE . 0 . OR . MCOL . LE . 0 ) GO  TO  50 
1130  DO  25  1 = 1 , NROW 
^ 1140  DO  25  J= 1 , MCOL 

1150  25  C(I, J)=A(I, J)+ISIGN*B(I, J) 

1160  MATADD=1 
1170  RETURN 

1 180  50  KK=1 ; IF( I SIGN . LT. 0)KK=2 
1190  M=M AT ERROR ( KK ,1,0,0) 

1200  RETURN ; END 
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1210  FUNCTION  MATMULT (A, NROW ,MC0L , FACTOR, NSTART , NSTOP , MSTART , 
1 220&MSTOP , EXPONT) 

1230  DIMENSION  A(NR0W,1) 

1 240  N S=N START 
1250  NP=N STOP 
1260  MS=MSTART 
1270  MP=M STOP 
1280  M ATMULT=2 

1290  IF(NR0W.LE. O.OR.MCOL.LE. 0)GO  TO  50 
1300  IF(NS.LE.O.OR.NS.GT . NROW) N S= 1 
1310  IF(MS.LE.O.OR.MS.GT.MCOL)MS=1 
1320  IF(NP.LE. O.OR.NP. GT . NROW) NP=NROW 
1330  IF (MP.LE. O.OR.MP.GT  • MCOL ) MP=M  COL 
1340  IF(NS.GT.NP.OR.MS.GT. MP ) GO  TO  55 
1350  M=2 
1360  L = 2 

137  0 IF ( EXPONT. EQ. 0 . OR . EXPONT . EQ . 1 . )M=1 
1380  IF(FACT0R. EQ. 0)FACTOR=1 . 

1390  IF ( AMOD (EXPONT, 1.) . EQ . 0 ) L= 1 

1400  DO  25  I =N S , NP 

1410  DO  25  J =M S , MP 

1420  GO  TO (10, 20)  ,M 

1430  10  A ( I , J ) =F ACTOR* A ( I , J ) 

1440  GO  TO  25 

1450  20  GO  TO ( 2 1 , 22)  ,L 

1460  21  A(I , J)=FACTOR*A(I , J) **INT (EXPONT) 

1470  GO  TO  25 

1480  22  A ( I , J ) “FACTOR *A( I , J ) **EXP0NT 
1490  25  CONTINUE 
1500  MATMULT  = 1 
1510  RETURN 

1520  50  M=MATERROR ( 6 , 1 , 0 , 0 ) 

1530  RETURN 

1540  55  M=MATERROR (6 , 3 , 0 , 0 ) 

1550  RETURN 
1560  END 


APPENDIX  E 

FACTOR  MATRICES  OF  PROGRAM  FILES  FACTA1 , 
FACTA2 , FACTA6,  FACTA?,  FACTC2 , 
FACTC3,  AND  FACTC9 
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A-l  Program  Factors 


1200 

1211 

1212 

1215 

1221 

1222 

1223 

1225 

1231 

1.000 

.084 

.461 

1232| 

1240 

1251 

1252 

1261 

1262 

1270 

1280 

1290 

.008 

.286 

.124 

.037 

1300 

1311 

1312 

1314 

1321 

1322 

1331 

1340 

1351 

1.000 

.462 

.029 

.445 

.029 

.017 

1352 

1355 

1370 

1380 

1390 

1000 

l4oo 

0600 

0601 

.018 

.463 

.537 

1.000 

O 

VT\ 

O 

0602 

0603 

1510 

1511 

1512 

1513 

1514 

1520 

1521 

.461 

ON 

00 

-3- 

.959 

.063 

.902 

.041 

. 041 

1522 

1523 

OO 

1530 

1540 

1550 

1551 

1552 

1600 

1.000 

1.000 

1.000 

1.000 

1610 

1611 

1612 

1620 

1630 

1651 

1652 

1653 

1654 

.009 

.094 

.001 

.013 

.001 

1661 1 

1662 

1663 

1664 

1670 

1671 

1680 

1691 

1692 

.045 

. 1 65 

.037 

.537 

.086 

.007 

.002 

1693 1 

.003 

A- 2 Program  Factors 


1200  | 

1211 

1212 

1215 

1221 

1222 

1223 

1225 

1231 

1 . 000 

.115 

.193 

.043 

.037 

1232 

1240 

1251 

1252 

1261 

1262 

1270 

1280 

1290 

.06s 

.201 

.094 

.205 

.04: 

3 

1300 

1311 

1312 

1314 

1321 

1322 

1331 

1340 

1351 

1.000 

.375 

.036 

.321 

.021 

.021 

. 066 

1352 

1355 

1370 

1380 

1390 

1000 

1400 

0600 

0601 

.146 

.012 

.268 

• 732 

1.000 

. 20* 

0602 

0603 

1510 

1511 

1512 

1513 

1514 

1520 

1521 

. 20  ij 

!, 

• 592 

.508 

.125 

l\3 

CD 

.125 

.492 

.117 

1522 

1523 

oi^r 

r\D^ 

oc 

1530 

1540 

1550 

1551 

1552 

1600 

.258 

.117 

1.000 

1.000 

1.000 

1.00c 

) 

1610 

1611 

1612 

1620 

1630 

1651 

1652 

1653 

1654 

.068 

.062 

.011 

.019 

.016 

.01 

1 

.011 

1661  1 

1662 

1663 

1664 

1670 

1671 

1680 

1691 

1692 

.011 

.075 

.224 

.019 

. 44 

5 

.016 

1693 

.012 

A-6  Program  Factors 


1200 

1211 

1212 

1251 

1221 

1222 

1223 

1225 

1231 

1.000 

.031 

.055 

1232 

1240 

1251 

1252 

1261 

1262 

1270 

1280 

1290 

.914 

1300 

13H 

1312 

1314 

1321 

1322 

1331 

1340 

1351 

1.000 

.300 

.700 

1352 

1355 

1370 

1380 

1390 

1000 

1400 

0600 

0601 

.802 

.196 

5 

1.000 

0602 

0602 

1510 

1511 

1512 

1513 

1514 

1520 

1521 

.7  33 

.733 

.267 

.067 

1522 

1523 

J~Ln 

OO 

1530 

1540 

1550 

1551 

1552 

1600 

.067 

.133 

1.000 

1.000 

1.000 

1 . 000 

1610 

1611 

1612 

1620 

1630 

1651 

1652 

1653 

1654 

.270 

.175 

1661 

1662 

1663 

1664 

1670 

1671 

1680 

1691 

1692 

.183 

.372 

1693 

A- 7 Program  Factors 


1200 

0 

1211 

1212 1 

1215 

1221 

1222 

1223 

1225 

1231 

1.00 

.072 

.072 

1232 

1240 

1251 

1252 

1261 

1262 

1 270 

1280 

1290 

.133 

.615 

.108 

1300 

1311  1 

1312 

1314 

1321 

1322 

1331 

1340 

1351 

1.00 

0 

.586 

.09! 

.216 

1352 

1355 

1370 

1380 

1390 

1000; 

1400 

0600 

0^01 

• 099 

.510 

.490 

1 

i.0( 

30 

.22 

4 

0602 

1 

0603 

1510 

1511 

1512 

1513 

1514 

1520 

1521 

.612 

.164 

.511 

O 

^0 

. 401 

.053 

T489 

.070 

1522 

1523 

HH1 

r\*-= 

oc 

1530 

1540 

1550 

1551 

1552 

1600 

.38- 

4 

.035 

1.000 

1.000 

1 . 000 

1.00' 

0 

1610 

1611 

1612 

1620 

1630 

1651 

1652 

1653 

1654 

.001 

.005 

,oo4 

.001 

.003 

.00j 

! 

r.ooi 

1661 

1662 

rl663 

1664 

1670 

1671 

1~680 

"1691 

1692 

.001 

.017 

.002 

1693 

.962 

C-2  Program  Factors 


1200| 

1211  | 

1212 1 

1215 

1221 

1222 

1223 

) 

1225 

1231 

1.0 

00 

.11c 

.485 

1232 

1240 

1251 

1252 

1261 

1262 

1270 

1280 

1290 

.055 

.141 

.087 

.005 

.007 

.110 

1300 

1311  1 

1312 

1314| 

1321 

L322 

1331 

1340 

1351 

i . 00 

0 

-7TO3 

T352- 

1352 

1355 

1370 

1 

1380 

1390 

1000 

1400 

0600 

0601 

.345 

.406 

.59*1 

* 

1.0( 

DO 

0602 

0603I 

1510 

1 

15H 

1512 

1513 

1514 

1520 

1521 

.596 

.110 

.075 

.411 

.40* 

1 

.110 

1522 

1523 

131U 

1S20 

1530 

1540 

1550 

1551 

1552 

1600 

.075 

1 

.219 

1.000 

1.000 

1.000 

1.00' 

0 

l6lo| 

1611  1 

1612 

1620 

163c 

1651 

1652 

T353" 

1654 

1661 

1662 

1663 

1664 

1670 

1671 

1680 

1691 

1692 

.767 

.233 

1693 

J 

100 


C-3  Program  Factors 


1200 

1211 

1212 

1215 

1221 

1222 

1223 

1221 

1231 

1.000 

.046 

.091 

.343 

1232 

1240 

1251 

1252 

I26l 

1262 

1270 

1280 

1290 

.198 

. 068 

. 068 

.057 

.049 

.019 

.061 

1300 

1311 

1312 

1314 

1321 

1322 

1331 

1340 

1351 

1 . 000 

.630 

.370 

1352 

1355 

1370 

1380 

1390 

1000 

l4oo 

0600 

0601 

• 978 

.022 

0602 

0603 

1510 

1511 

1512 

1513 

1514 

1520 

1521 

.889 

.037 

.037 

.519 

.296 

.111 

.037 

1522 

1523 

iS8_ 

1530 

1540 

1550 

1551 

1552 

1600 

.037 

.037 

1.000 

1.000 

1.000 

1.000 

1 

1610 

1611 

1612 

1620 

1630 

1651 

1652 

1653 

1654 

.701 

.299 

1661 

1662 

1663 

1664 

1670 

1671 

1680 

1691 

1692 

1693 

1 

r 
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C-9  Program  Factors 


1200 

1211 

1212 

1215 

1221 

1222 

1223 

1225 

1231 

1.000 

1232 

1240 

1251 

1252 

1261 

1262 

1270 

1280 

1290 

ON 

CO 

cv 

.211 

1300 

1311 

1312 

1314 

1321 

1322 

1331 

134C 

1351 

1.000 

1.000 

1352 

1355 

137C 

1380 

1390 

1000 

1400 

0600 

0601 

1.000 

0602 

0603 

151C 

151: 

1512 

1513 

1514 

1520 

152: 

1.000 

1.000 

1522 

1523 

m 

1530 

1540 

1550 

1551 

1552 

1600 

) 

1.000 

1.000 

1.000 

1 .00c 

1610 

1611 

1612 

1620 

L630 

1651 

1652 

1653 

165^ 

1661 

1662 

l66j 

166L 

1670 

1671 

1680 

1691 

1692 

.716 

.284 

169; 

APPENDIX  F 

THE  COMPUTER  PROGRAM  WITH  ASSOCIATED 
OFF-LINE  FILES 
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H1 

O 

<oJ 


1 0*//RUN  *=>  (ULIB)GRADLIB/TSS  , R 

2 OC  THE  FOLLOWING  PROGRAM  IS  DESIGNED  TO  MANIPULATE  DATA  RECEIVED  BY  THE 
JOINT  AERONAUTICAL  MATERIALS  ACT IVI TY ( J AMAC ) PER  REPORTING  RQMTS 
ESTABLISHED  BY  AND  FOR  THE  DEFENSE  MATERIALS  SYSTEM  (DMS).  THE 
PROGRAM  WILL  MANIPULATE  DATA  OF  THE  FORM  AND  CONTENT  OF  FORM  DMS-4A, 
"STATEMENT  OF  CONTROLLED  MATERIALS  REQUIREMENTS  FOR  CLASS  "A"  PRODUCTS 
PRODUCTION  OR  RESEARCH  AND  DEVELOPMENT." 


3 OC 

4 OC 
50C 

6 OC 

7 OC 
80C 
9 0C 
100C 
1 IOC 
1 20C 
1 30C 
1 4 OC 
1 50C 
16  0C 
1 7 0C 
1 80C 

1 90C 
200C 

2 1 OC 
2 20C 
2 30C 
2 40C 
2 50C 
2 6 OC 
2 7 0C 
2 80C 

2 90C 

3 0 OC 
3 IOC 
3 2 OC 
3 3 OC 
3 4 OC 
3 5 OC 


THE  PROGRAM  WILL  - 1)PRINT  THE  NAME,  ADDRESS  AND  CONTROL  //  OF 
EACH  REPORTING  CONTRACTOR  ENTERED  DURING  DATA  INPUT;  2)  STORE 


AND 
A-  6 , 


PRINT  CONTROLLED  MATERIALS  FACTORS  FOR  DMS  PROGRAMS  A-l , A-2; 

A- 7 , C-2,  C-3 , C-9 ; 3)  PRINT  AND  TOTAL  REPORTED  MATERIALS  QUANTITIES 

TO  SIMPLIFY  INPUT  DATA  AUDITING  PROCEDURES;  4)  EMPLOY  MATRIX 
ALGEBRA  TO  COMPUTE  AND  PRINT  SPECIFIC  MATERIALS  REQUIREMENTS  IN 
SIMILAR  FORM  AND  CONTENT  OF  FORMS  DD-614,  AND  614-1,  "MATERIALS 
REQUIREMENTS . " 

EACH  FUNCTION/SUB-ROUTINE  IS  DOCUMENTED  BY  COMMENT  LINES  PRECEDING 
DOCUMENTATION  AREAS.  EACH  COMMENT  LINE  CONTAINS  A SHORT  PURPOSE  OR 
FUNCTION  STATEMENT  AND  A BRIEF  DESCRIPTION  FOR  SUPPORTING  OR 
CLARIFICATION  PURPOSES. 

LIST  AND  DESCRIPTION  OF  VARIABLE  NAMES* 
*************************************** 

ADDRESP  - AN  ARRAY  WHICH  CONTAINS  CONTRACTOR  ADDRESSES  AND  CONTROL 
NUMBERS  FOR  VERIFICATION  PURPOSES. 

ADDRES  - FILE  WHICH  CONTAINS  INFORMATION  FOR  ADDRESP. 

CONTRNO  - CONTRACTOR  CONTROL  NUMBER. 

DATATOT  - AN  ARRAY  WHICH  CONTAINS  TOTALLED  CONTRACTOR  INPUT  DATA. 
DATA  - AN  ARRAY  FOR  INPUT  OF  CONTRACTOR  DATA. 

FACTA 1 - FILE  WHICH  CONTAINS  A-l  PROGRAM  FACTORS. 

FACTA  2 - " " " A-2 

FACTA6  - " » " A- 6 


w 


3 60C 

FACTA7 

- 

n 

it 

" A-  7 

tt 

ti 

3 7 OC 

FACTC2 

- 

ti 

it 

" C -2 

it 

it 

3 80C 

FACTC3 

- 

it 

it 

" C-3 

it 

it 

3 90C 

FACTC9 

- 

ii 

ii 

" C-9 

tt 

it 

4 00C 

FACT1 

- 

AN 

ARRAY 

FOR  STORAGE  OF 

DATA 

FOR 

THE 

A- 1 PROGRAM. 

4 1 OC 

FACT  2 

- 

it 

it 

II 

tt 

n 

it 

A-2 

4 2 OC 

FAC  T 3 

- 

ii 

it 

II 

tt  tt 

tt 

it 

tt 

A- 6 

4 3 OC 

FACT  4 

- 

it 

M 

II 

tt  II 

It 

ii 

it 

A- 7 " 

4 4 OC 

FACT5 

- 

n 

It 

tl 

It  II 

tt 

tt 

it 

C-2  " 

4 5 OC 

FAC  T 6 

- 

it 

It 

It 

II  It 

It 

it 

tt 

C-3  " 

4 6 OC 

FACT  7 

- 

it 

tt 

It 

II  It 

tt 

ti 

tt 

C-9  " 

4 7 OC 

GDATATOT 

- 

AN 

ARRAY 

WHICH 

CONTAINS 

TOTALLED 

CONTRACTOR  INPUTS 

4 80C 

QTOT 

- 

AN 

ARRAY 

WHICH 

CONTAINS 

QTRLY 

COLUMN 

TOTALS . 

4 90C 

500C 

ACCESS  STATEMENT 

- TO 

GAIN 

ACCESS  TO 

THE  AIR 

FORCE 

INSTITUTE  OF 

5 1 OC  TECHNOLOGY ( AFIT ) PROGRAM  LIBRARY  WHICH  CONTAINS  MATRIX  ALGEGRA 
5 2 OC  PROGRAMS  USED.  PROGRAM  NAME  AND  ROUTINE(S)  USED  WILL  BE  IDENTIFIED 
5 3 OC  AS  APPROPRIATE.  REFER  TO  APPROPRIATE  THESIS  APPENDIX  FOR  LISTING  OF 
5 4 OC  PROGRAM/ROUTINE  USED  (SEE  LINE  NUMBER  10). 

5 5 OC 

5 6 OC  DECLARATIVE  STATEMENT  - ESTABLISHES  STORAGE  SPACE  ON  CURRENT 
5 7 OC  FILE  IN  MATRIX  FORMAT;  EITHER  REAL  NUMBERS  OR  ALPHA  CHARACTERS. 

5 80C 

590  REAL  DATA (8,4),QTOT(4),DA TATOT ( 8 , 4 ) , FACT  1 ( 9 , 9 ) 

600  REAL  FACT2(9,9)  , FACT  3(9,9),FACT4(9,9), FACT  5 (9,9) 

610  REAL  FACT6 (9 , 9) , FACT7 (9 , 9) .GDATATOT (8 , 4) 

620  CHARACTER  ADDRES P * 3 0 ( 3 4 5 , 2 ) , CONTRNO* 1 9 

6 3 OC 

6 40C  CALL/ATTACH  STATEMENT  - CALLS  SUBROUTINES  ENCLOSED  WITHIN 
6 5 OC  QUOTATION  MARKS  TO  CURRENT  FILE. 

660C 

670  CALL  ATTACH ( 1 1 , "7 8A55/FACTA1 1 , 0, , ) 

680  CALL  ATTACH(12,"78A55/FACTA2; ",  1, 0,  , ) 

690  CALL  ATTACH( 13, "7 8A55/FACTA6; " , 1 , 0, , ) 

700  CALL  ATTACH ( 1 4 , " 7 8A55 /FACTA7 ; " , 1 , 0, , ) 
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710  CALL  ATTACH ( 1 5 ," 7 8A55 /FACTC2 ; " , 1 , 0 , , ) 

720  CALL  ATTACH ( 1 6 , " 7 8A5 5 /FACTC 3;"  ,1,0,,) 

730  CALL  ATTACH ( 1 7 , " 7 8A5 5 /FACTC 9 ; " , 1 , 0 , , ) 

7  4 0 CALL  ATTACH ( 1 8 , " 7 8A5 5 / ADDRES ; " , 1 , 0 , , ) 

7  5 0C 

7 6 OC  READ  STATEMENT  - READS  THE  VARIOUS  FACTOR  MATRICES  ONTO 
7 7 OC  THE  CURRENT  FILE.  REFER  TO  APPENDIX  LISTING  BY  PROGRAM 
7 80C  NAME  "USERLIB"  AND  ROUTINE  "MATREAD". 

7 90C 

800  M=MATRE AD ( FACT  1 , 9 , 9 , 1 1 , 0 , 0 , 0 , 0 , " ( V ) " ) 

810  M=MATRE AD ( FACT  2 , 9 , 9 , 1 2 , 0 , 0 , 0 , 0 , " ( V ) " ) 

8 20  M=MATREAD ( FACT 3 ,9,9, 13, 0,0, 0,0, "(V)") 

830  M=MATREAD ( FACT 4 ,9,9, 1 4 , 0 , 0 , 0 , 0 , " ( V ) " ) 

840  M=MATREAD ( FACT5 , 9 , 9 , 15,0,0,0,0,"(V)") 

850  M "MATREAD (FACT 6, 9, 9, 1 6 , 0 , 0 , 0 , 0 , " ( V)  ") 

8  60  M=MATREAD ( FACT  7 , 9 , 9 , 17,0,0,0,0,"(V)") 

8 7 OC 

8 8 OC  READ  STATEMENT  - READS  THE  CONTRACTOR  ADDRESS  LIST  AND 

8 90C  CONTROL  NUMBERS  ENTERED  DURING  INPUT. 

9 00C 

910  DO  1 1=1 , 345 

920  READ  (18, 1030) ( ADDRES P ( I , K) ,K=1 , 2) 

930  1 CONTINUE 
9 4 OC 

950  PRINT , " THE  FOLLOWING  IS  THE  CONTRACTOR  ADDRESS  LIST" 

960  PRINT,"*********************************************" 

9 7 OC  PRINT  STATEMENT  - PRINTS  ADDRESSES  AND  CONTROL  NUMBERS. 

9  80C 

990  DO  2 1=1 , 345 

1000  PRINT  1030  , ( ADDRES P (I , K) , K=1  , 2 ) 

1010  2 CONTINUE 

1020  1030  FORMAT (1X,A30,3X,A30) 

1025  PRINT  700 
1027  700  FORMAT(lHl) 

1 03  OC 

1 04  OC  PRINT  STATEMENT  - PRINTS  PROGRAM  FACTORS  IN  MATRIX  FORMAT 
1050C  FOR  VERIFICATION  OF  FACTORS  BY  PROGRAM  USER.  ALL  THE 
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1060C  FOLLOWING  "MATWRITE"  STATEMENTS  ARE  USED  TO  ACCOMPLISH  THE 
1070C  SAME  FUNCTION.  REFER  TO  APPENDIX  LISTING  BY  PROGRAM  NAME 
1080C  "USERLIB"  AND  ROUTINE  "MATWRITE." 

1 090C 

1100  PRINT,"  " 

1110  PRINT, "A-l  PROGRAM  FACTORS:" 

1120  M=MATWRITE ( FACT  1 , 9,9,42,0,0,0,0,"(9(F6.3,2X))") 

1130  PRINT,"  " 

1140  PRINT, "A-2  PROGRAM  FACTORS:" 

1150  M=M AT WRITE ( FACT 2 , 9,9,42,0,0,0,0,"(9(F6.3,2X))") 

1160  PRINT,"  " 

1170  PRINT, "A-6  PROGRAM  FACTORS:" 

1180  M=MATWRITE ( FACT 3 ,9,9,42,0,0,0,0,"(9(F6.3,2X))") 

1190  PRINT,"  " 

1200  PRINT, "A-7  PROGRAM  FACTORS:" 

1210  M=MAT WRITE (FACT4, 9, 9, 42, 0, 0, 0, 0, " (9 (F6. 3, 2X) )") 

1220  PRINT,"  " 

1230  PRINT, "C-2  PROGRAM  FACTORS:" 

1240  M=MATWRITE (FACT5, 9,9,42,0,0,0,0,"(9(F6.3,2X))") 

1250  PRINT,"  " 

1260  PRINT, "C-3  PROGRAM  FACTORS:" 

1270  M=MATWRITE (FACT 6, 9,9,42,0,0,0,0,"(9(F6.3,2X))") 

1280  PRINT,"  " 

1290  PRINT, "C-9  PROGRAM  FACTORS:" 

13  00  M=MATWRIT E ( FACT 7 , 9,9,42,0,0,0,0,"(9(F6.3,2X))") 

1310  PRINT,"  " 

1320C 

1325  PRINT  700 

1330C  START  TO  ENTER  CONTRACTOR  DATA 
1340  PRINT,"  " 

1350C 

1360  M=MATINIT (GDATATOT, 8, 4, 0,1,8, 1,4) 

1370  5 PRINT,"  " 

1380  READ , CONTRNO 
1390C 

1400C  LOGICAL  "IF"  STATEMENT  - ASSERTION  AND  CONTINGENT  STATEMENT 
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1 4 1 0C  PORTIONS  ARE  USED  TO  DETERMINE  WHICH  PROGRAM  FACTOR  MATRIX 
1420C  ARE  TO  BE  USED  TO  COMPUTE  DATA  OF  THE  FORM  AND  CONTENT  OF 
1430C  DD  FORMS  614  AND  614-1. 

1440C 

1450  IF(CONTRNO. EQ. " 1 " ) GO  TO  50 
1460  I F ( CONTRNO • EQ . " 2 " ) GO  TO  60 
1470  IF ( CONTRNO . EQ . "6 ") GO  TO  70 
1480  IF ( CONTRNO. EQ. "7 ")GO  TO  80 
1490  IF ( CONTRNO. EQ. "8")GO  TO  90 
1500  IF(CONTRNO. EQ. "3")GO  TO  100 
1510  I F ( CONTRNO . EQ . " 9 " ) GO  TO  110 
1520C 

1530  M=M ATREAD (DATA, 8,4,5,0,0,0,0,"(V)") 

1540C 

1550  PRINT  1060, CONTRNO 

1560  1060  F0RMAT(1X, "ENTERED  DATA  FOR  CONTRACTOR  //  - ",A19//) 

1570C 

1580C  PRINT  STATEMENT  - PRINTS  DATA  ENTERED  IN  ORDER  TO  VERIFY 
1590C  CORRECTNESS  OF  DATA  ENTERED. 

1600C 

1610  M=MATWRITE (DATA, 8,4,42,0,0,0,0,"(4(F14.1,2X))") 

1620C 

1630C  VALUE  ASSIGNMENT  - ZEROES  OUT  QTOT . 

1640C 

1650  DO  20  1=1,4 
1660  QTOT ( I ) =0 
1670  20  CONTINUE 
1680C 

1690C  DO  STATEMENT  - ADDS  THE  COLUMN  ENTRIES  SO  THAT  THE  USER 
1700C  MAY  VERIFY  ACCURACY  OF  DATA  ENTERED.  THIS  USER  SPECIFIED 
1710C  ROUTINE  SERVES  AS  A MEANS  TO  PERFORM  EXTERNAL  ACCURACY  AUDITS. 
1720C 

1730  DO  30  J=1 , 4 
1740  DO  40  1=1,8 
1750  QTOT (J)=QTOT (J )+DATA ( I , J ) 
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1760  40  CONTINUE 
1770  30  CONTINUE 
1780C 

1790C  PRINT  STATEMENT  - PRINTS  COLUMN  TOTALS. 

1800C 

1810  M=MATWRITE (QTOT, 1,4,42,0,0,0,0,"(4(F14.1,2X))") 

1820C 

1830C  COMMAND  STATEMENT  - PERFORMS  ADDITION  OF  ALL  ENTERED  DATA 
1840C  FOR  SPECIFIED  PROGRAMS.  REFER  TO  APPENDIX  LISTING  BY  PROGRAM 
1850C  NAME  "USERLIB"  AND  ROUTINE  "MATADD." 

1860C 

1870  M=MATADD (DATA, 8, 4 , DATATOT , DATATOT ) 

1880C 

1890  M=MATADD (DATA, 8,4, GDATATOT , GD ATATOT ) 

1900C 

1910  GO  TO  5 
1920C 

1930C  COMMAND  STATEMENT  - THE  FOLLOWING  SERIES  OF  "MATMULT"  STATE- 
1940C  MENTS  WILL  CAUSE  MATRIX  MULTIPLICATION  OF  APPROPRIATE 
1950C  MATRICES.  REFER  TO  APPENDIX  LISTING  BY  PROGRAM  NAME  "USERLIB" 
1960C  AND  ROUTINE  "MATMULT." 

1 970C 

1980  50  PRINT, "A-l  PROGRAM  COMPUTATIONS." 

1990C 

2 00  0 M=MATMULT ( FACT  1 , 9, 9, DATATOT (1 , 1), 1,2,  1,9,0) 

2010  M=MATMULT (FACT1 ,9,9, DATATOT (2 ,1), 3, 3, 1,9,0) 

20  20  M=MATMULT ( FACT  1 , 9,9, DATATOT (2 , 1), 4, 4,  1,5,0) 

2030  M=MATMULT (FACTl , 9 , 9 , DATATOT ( 3 , 1), 4, 4, 6, 7,0) 

204  0 M=MATMULT (FACTl ,9,9, DATATOT (8 , 1), 4, 4, 8, 9,0) 

2 0 50  M=MATMULT (FACTl , 9 , 9 , DATATOT (8 , 1 ) , 5, 5 , 1 , 2, 0) 

2060  M=MATMULT (FACTl ,9,9, DATATOT (4 , 1), 5, 5, 3, 9,0) 

2070  M=MATMULT (FACTl , 9 , 9 , DATATOT (4 , 1 ) , 6, 6, 1 , 3, 0) 

2080  M=MATMULT (FACTl , 9, 9, DATATOT (5 , 1), 6, 6, 4, 4,0) 

20  90  M=M ATMULT (FACTl , 9,9,DATATOT(6,  1), 6, 6, 5, 8,0) 

2100  M=MATMULT (FACTl , 9,9, DATATOT (7 , 1), 6, 6, 9, 9,0) 


2110  M=MATMULT  ( FACT  1,9,9,  DATATOT  (7,1), 7, 9,  1,9,0) 

2 1 2 OC 

2130C  COMMAND  STATEMENT  - THE  FOLLOWING  SERIES  OF  "MATWRITE" 

2140C  STATEMENTS  WILL  CAUSE  A PRINT-OUT  OF  DATA  COMPATIBLE  WITH 
2150C  FORM  AND  CONTENT  REQUIREMENTS  OF  FORMS  DD  614  AND  614-1 
2160C  FOR  APPLICABLE  PROGRAMS. 

2170C 

2180  M=MATWRITE(FACT1, 9, 9,42, 0, 0, 0, 0,"(9F14. 2)") 

2190C 

2200C  COMMAND  STATEMENT  - THE  FOLLOWING  SERIES  OF  "MATINIT"  STATE 
2210C  MENTS  WILL  ASSIGN  ZERO  VALUES  IN  ALL  CELLS  OF  DATATOT. 

2220C  REFER  TO  APPENDIX  LISTING  BY  PROGRAM  NAME  "USERLIB"  AND 
2230C  ROUTINE  "MATINIT." 

2240C 

2250  M=M AT IN IT (DATATOT, 8, 4, 0, 1,8, 1,4) 

2255  PRINT  700 
2260  GO  TO  5 

221 QC 

2280  60  PRINT, "A-2  PROGRAM  COMPUTATIONS." 
q 2290C 

2300  M=MATMULT (FACT2, 9, 9, DATATOT ( 1 , 1 ) , 1 , 2 , 1 , 9, 0) 

2310  M=MATMULT (FACT 2, 9, 9, DATATOT (2 , 1), 3, 3,  1,9,0) 

2 320  M=MATMULT ( FACT 2 , 9, 9, DATATOT (2 , 1), 4, 4,  1,5,0) 

2 3 30  M=MATMULT ( FACT 2 , 9, 9, DATATOT (3 , 1), 4, 4, 6, 7,0) 

2340  M=MATMULT (FACT2 , 9 , 9, DATATOT (8,  1 ) , 4, 4, 8, 9 , 0) 

2 3 50  M=M ATMULT ( FACT 2 , 9,9, DATATOT (8,  1), 5, 5, 1,2,0) 

2360  M=M ATMULT (FACT 2 , 9 , 9 , DATATOT ( 4 , 1), 5, 5, 3, 9,0) 

2 3 70  M=M ATMULT ( FACT  2 , 9, 9, DATATOT (4,  1), 6, 6, 1,3,0) 

2380  M=M ATMULT (FACT 2, 9 , 9, DATATOT (5 ,1), 6, 6, 4, 4,0) 

2 3 90  M=M ATMULT (FACT 2, 9, 9, DATATOT (6 , 1), 6, 6, 5, 8,0) 

2400  M=M ATMULT (FACT 2, 9, 9, DATATOT (7 ,1), 6, 6, 9, 9,0) 

2410  M=M ATMULT (FACT 2, 9 , 9, DATATOT (7 ,1), 7, 9,  1,9,0) 

2420C 

2430  M-MATWRITE (FACT2 , 9, 9, 42 , 0, 0, 0, 0, " (9F14. 2) ") 

2440C 

2 45  0 M=MATINIT (DATATOT ,8, 4, 0,1,8,  1,4) 
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2460C 

2465  PRINT  700 
2470  GO  TO  5 
2480C 

2490  70  PRINT, "A-6  PROGRAM  COMPUTATIONS." 

2500C 

2510  M=MATMULT ( FACT 3 , 9,9, DATATOT (1,1), 1,2,  1,9,0) 
2 5 20  M=M ATMULT ( FACT 3 , 9,9, DATATOT (2 , 1), 3, 3,  1,9,0) 
2 5 30  M=M ATMULT (FACT 3, 9,9, DATATOT (2 , 1), 4, 4,  1,5,0) 
2540  M=M ATMULT (FACT 3, 9,9,DATATOT(3,1),4,4,6,7,0) 
25  50  M=M ATMULT (FACT 3, 9 , 9, DATATOT (8 , 1), 4, 4, 8, 9,0) 
2 5 60  M-M ATMULT ( FACT 3 , 9,9, DATATOT (8 ,1), 5, 5, 1,2,0) 
2 5 70  M =M ATMULT (FACT  3 , 9 , 9 , DATATOT (4 , 1), 5, 5, 3, 9,0) 
2 5 80  M=M ATMULT (FACT 3, 9,9, DATATOT (4 , 1), 6, 6,  1,3,0) 
2 5 90  M=M ATMULT (FACT  3, 9,9, DATATOT (5 ,1), 6, 6, 4, 4,0) 
2600  M =M ATMULT (FACT 3 , 9,9, DATATOT (6 , 1), 6, 6, 5, 8,0) 
2 610  M=M ATMULT ( FACT 3 , 9,9, DATATOT (7 ,1), 6, 6, 9, 9,0) 
2620  M =M ATMULT (FACT 3 , 9 , 9, DATATOT (7 ,1), 7, 9, 1,9,0) 
2630C 

2640  M=MATWRITE ( FACT3 , 9,9,42,0,0,0,0,"(9F14.2)") 
2650C 

2660  M=MATINIT (DATATOT, 8, 4, 0,1, 8, 1,4) 

2670C 

2675  PRINT  700 
2680  GO  TO  5 
2690C 

2700  80  PRINT, "A-7  PROGRAM  COMPUTATIONS." 

271  OC 

2 72  0 M=M ATMULT (FACT 4, 9, 9, DATATOT (1,  1), 1,2,  1,9,0) 
2 73  0 M=M ATMULT (FACT 4 , 9, 9, DATATOT (2,  1), 3, 3,  1,9,0) 
2 740  M=M ATMULT (FACT 4, 9,9, DATATOT (2 , 1), 4, 4,  1,5,0) 
2750  M =M ATMULT (FACT 4 , 9, 9, DATATOT (3, 1), 4, 4, 6, 7,0) 
2 760  M=M ATMULT (FACT 4, 9,9, DATATOT (8 , 1), 4, 4, 8, 9,0) 
2 7 70  M=M ATMULT (FACT 4, 9, 9, DATATOT (8 , 1), 5, 5,  1,2,0) 
2 7 80  M=M ATMULT ( FACT 4 , 9 , 9, DATATOT (4 ,1), 5, 5, 3, 9,0) 
2 7 90  M =M ATMULT (FACT 4 , 9 , 9, DATATOT (4 , 1), 6, 6,  1,3,0) 
2800  M=M ATMULT (FACT 4, 9 , 9, DATATOT (5 ,1), 6, 6, 4, 4,0) 
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2810  M=MATMULT (FACT4 , 9 , 9 , DATA TOT ( 6 , 1), 6, 6, 5,8,0) 
2820  M=M ATMULT (FACT4 , 9 , 9 , DATATOT ( 7 , 1), 6, 6, 9, 9,0) 
2830  M=M ATMULT (FACT 4 , 9, 9, DATATOT (7, 1), 7, 9, 1,9,0) 
2840C 

2 85  0 M=MATWRITE ( FACT 4 , 9 , 9,42,0,0,0,0,"(9F14.2)") 
2860C 

2870  M =MATIN IT (DATATOT ,8, 4, 0,1,8, 1,4) 

2880C 

2885  PRINT  700 
2890  GO  TO  5 
2900C 

2910  90  PRINT, "C-2  PROGRAM  COMPUTATIONS." 

2920C 

2 93  0 M=M ATMULT ( FACT 5 , 9, 9, DATATOT (1,1), 1,2,  1,9,0) 
2940  M=M ATMULT (FACT 5 ,9, 9, DATATOT (2 , 1), 3, 3, 1,9,0) 
2950  M=M ATMULT ( FACT5 , 9 , 9 , DATATOT ( 2 , 1), 4, 4, 1,5,0) 

2 9 60  M=M ATMULT ( FAC T5 , 9 , 9 , DATATOT ( 3 , 1), 4, 4, 6, 7,0) 
2970  M=M ATMULT ( FACT5 , 9 , 9 , DATATOT ( 8 , 1), 4, 4, 8, 9,0) 
2980  M=M ATMULT (FACT5 , 9 , 9 , DATATOT (8 , 1), 5, 5, 1,2,0) 
2990  M=M ATMULT (FACT5, 9, 9, DATATOT (4, 1), 5, 5, 3, 9,0) 
3000  M=M ATMULT (FACT5, 9, 9, DATATOT (4 , 1), 6, 6, 1,3,0) 
3010  M=M ATMULT (FACT5, 9, 9, DATATOT (5, 1), 6, 6, 4, 4,0) 
3020  M=M ATMULT (FACT5, 9, 9, DATATOT (6 , 1), 6, 6, 5, 8,0) 

3 0 30  M=M ATMULT (FACT 5 , 9 , 9 , DATATOT ( 7 , 1), 6, 6, 9, 9,0) 
3040  M=M ATMULT (FACT 5 , 9 , 9 , DATATOT ( 7 , 1), 7, 9, 1,9,0) 
3050C 

3 0 60  M=MATWRITE ( FACT 5 , 9,9,42,0,0,0,0,"(9F14.2)") 
3070C 

3 08  0 M=MAT IN  IT (DATATOT, 8, 4, 0,1,8,  1,4) 

3090C 

3095  PRINT  700 
3100  GO  TO  5 
3110C 

3120  100  PRINT, "C-3  PROGRAM  COMPUTATIONS." 

3130C 

3140  M=MATMULT (FACT 6, 9, 9, DATATOT (1 , 1), 1,2, 1,9,0) 
3150  M=MATMULT (FACT 6, 9, 9, DATATOT (2 , 1) ,3,3, 1,9,0) 
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3160  M=MATMULT (FACT 6 , 9 , 9, DATA TOT (2 ,1), 4, 4, 1,5,0) 
3170  M=MATMULT ( FAC  T 6 , 9, 9, DATATOT (3  ,1), 4, 4, 6, 7,0) 
3 180  M=MATMULT (FACT6, 9 , 9, DATATOT (8 , 1), 4, 4, 8, 9,0) 
3190  M=MATMULT (FACT 6, 9, 9, DATATOT (8  , 1), 5, 5,  1,2,0) 
3 2 00  M=M ATMULT (FACT 6, 9, 9, DATATOT (4  , 1), 5, 5, 3, 9,0) 
3210  M=M ATMULT (FACT 6, 9, 9, DATATOT (4,  1), 6, 6,  1,3,0) 
322  0 M=M ATMULT (FACT 6 , 9 , 9, DATATOT (5 , 1), 6, 6, 4, 4,0) 

32  3 0 M=M ATMULT (FACT 6, 9, 9, DATATOT (6 , 1), 6, 6, 5, 8,0) 
3 2 40  M=M ATMULT (FACT 6 , 9 , 9, DATATOT (7 , 1), 6, 6, 9, 9,0) 
3 2 50  M = M ATMULT (FACT  6, 9 , 9, DATATOT (7  , 1),7,9,  1,9,0) 
3260C 

3 2 70  M=M AT WRITE ( FACT 6 , 9,9,42,0,0,0,0,"(9F14.2)") 
3280C 

3 290  M=M AT  IN  IT (DATATOT ,8, 4, 0,1,8,  1,4) 

3300C 

3305  PRINT  700 
3310  GO  TO  5 
3320C 

3330  110  PRINT, "C-9  PROGRAM  COMPUTATIONS." 

3340C 

3350  M=M ATMULT (FACT 7, 9, 9, DATATOT ( 1 ,1), 1,2,  1,9,0) 

33  60  M=M ATMULT (FACT 7, 9, 9, DATATOT (2, 1), 3, 3,  1,9,0) 
3 3 70  M=M ATMULT ( FAC T 7 , 9 , 9, DATATOT (2 , 1),4,4,  1,5,0) 
3 3 80  M=M ATMULT ( FAC T 7 , 9 , 9, DATATOT (3 , 1), 4, 4, 6, 7,0) 
3 3 90  M=M ATMULT (FACT 7, 9, 9, DATATOT (8,  1), 4, 4, 8, 9,0) 
3 4 00  M=M ATMULT (FACT  7, 9, 9, DATATOT (8  ,1), 5, 5,  1,2,0) 
3410  M=M ATMULT (FACT  7, 9, 9, DATATOT (4 , 1), 5, 5, 3, 9,0) 
3 420  M=M ATMULT (FACT 7, 9, 9, DATATOT (4,  1), 6, 6,  1,3,0) 
3 43  0 M=M ATMULT (FACT  7, 9,9, DATATOT (5 ,1), 6, 6, 4, 4,0) 
3 44  0 M=M ATMULT (FACT  7, 9 , 9, DATATOT (6  , 1), 6, 6, 5, 8,0) 
3 45  0 M=M ATMULT (FACT 7 , 9 , 9, DATATOT (7 , 1), 6, 6, 9, 9,0) 
3 4 60  M=M ATMULT ( FACT 7 , 9,9, DATATOT (7 , 1), 7, 9,  1,9,0) 
3470C 

3 480  M=M ATWRITE ( FACT  7 , 9,9,42,0,0,0,0,"(9F14.2)") 
3490  PRINT,"  " 

3500C 


3510  M«=MATINIT  (DATATOT ,8,4,0, 1 ,8,1,4) 

352  OC 

3525  PRINT  700 

3530  PRINT, "TOTAL  QUARTERLY  CONTRACTOR  INPUTS  FOR  ALL  PROGRAMS 
3540  PRINT,"************************************************** 
3550  M=MATWRITE(GDATATOT, 8 , 4 , 42 , 0 , 0 , 0 , 0 , " ( 4 (FI 4 . 1,2X))") 

3560  STOP 
3570  END 
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LIST  FACTA  1 


1 . 00 

0 

. 084 

0 

. 008 

.286 

1 . 00 

0 

.462 

.018 

0 

0 

.461 

.489 

.959 

0 

0 

1 . 00 

0 

. 009 

. 094 

.045 

. 165 

. 037 

. 003 

0 

0 

LIST 

FACTA2 

1.00 

0 

.115 

.069 

. 201 

. 094 

* 

1 . 00 

0 

.375 

.146 

0 

0 

* 

.2  04 

.592 

. 508 

• 

.258 

.117 

1 . 00 

1 

0 

.068 

.062 

* 

.011 

.075 

0 

.012 

0 

0 

i > 


.461 

0 

0 

0 

0 

0 

0 

0 

. 029 

. 445 

0 

. 029 

0 

.463 

.537 

1 . 00 

. 902 

0 

0 

. 041 

1 . 00 

0 

0 

0 

0 

.013 

.001 

0 

.537 

.086 

. 007 

0 

0 

0 

0 

0 

. 193 

.043 

0 

0 

0 

0 

0 

0 

.036 

.321 

.021 

. 021 

0 

.268 

.732 

1 . 00 

.258 

. 125 

0 

.492 

1 . 00 

0 

0 

0 

0 

.019 

.016 

.011 

.224 

0 

.019 

.445 

0 

0 

0 

0 

0 

124 

0 

0 

063 

. 00 

001 

0 

0 

0 

205 

0 

012 

125 

. 00 

Oil 

0 

0 


0 

. 037 
.017 
. 050 
. 041 
1 . 00 
0 

. 002 
0 


. 037 
. 043 
.068 
.204 
.117 
1 . 00 
.011 
.016 
0 


LIST  FACTA6 


1 . 00 

0 

. 031 

0 

.055 

0 

0 

0 

0 

0 

0 

.914 

0 

0 

0 

0 

1 . 00 

0 

0 

0 

0 

0 

. 300 

. 700 

0 

0 

0 

0 

0 

. 802 

. 198 

1 . 00 

0 

0 

. 733 

0 

. 733 

0 

0 

.267 

.067 

. 133 

1 . 00 

1 .00 

1 . 00 

0 

0 

0 

0 

. 270 

0 

0 

0 

.175 

0 

0 

0 

0 

0 

0 

.183 

0 

.372 

0 

0 

0 

0 

0 

0 

0 

0 

0 

LIST  FACTA7 

1.00  0 0 

0 

.072 

.072 

0 

0 

0 .133  0 

.615 

0 

0 

0 

0 

1.00  0 0 

0 

.586 

0 

0 

.099 

.099  0 0 

0 

0 

.510 

.490 

1 . 00 

.612  .164  .511 

. 057 

. 401 

. 053 

0 

. 489 

.384  .035  1.00 

1 . 00 

1.00 

0 

0 

0 

0 .001  .005 

.004 

0 

. 001 

. 003 

.003 

0 .001  0 

0 

.017 

0 

. 002 

0 

.962  0 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

. 067 
1 . 00 
0 
0 
0 


0 

. 108 
.216 
. 224 
.070 
1 . 00 
.001 
0 
0 
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LIST  FACTC2 

1.00  0 0 
0 .055  .141  . 
1.00  0 0 
.345  0 0 

0 0 .596  . 

.075  .219  1.00  1 
0 0 0 
0 0 0 
0 0 0 


LIST  FACTC3 

1.00  0 0 
0 .198  .068  . 
1.00  0 0 
0 0 0 
0 0 .889  . 

.037  .037  1.00  1 
0 0 .701  . 

0 0 0 
0 0 0 


0 

0 

.110 

0 

. 005 

. 007 

0 

0 

0 

.103 

0 

. 552 

0 

. 406 

.594 

1.00 

.075 

.411 

0 

. 404 

1 . 00 

0 

0 

0 

0 

0 

0 

0 

. 767 

0 

. 233 

0 

0 

0 

0 

0 

. 046 

0 

. 091 

0 

.057 

.049 

.019 

0 

.630 

0 

0 

.370 

0 

. 978 

.022 

0 

. 037 

.519 

.296 

.111 

1 . 00 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

087 

0 

0 

no 

. 00 

0 

0 

0 

0 

068 

0 

0 

037 

. 00 

299 

0 

0 

l 


. 485 

. no 
0 
0 

.110 
1 . 00 
0 
0 
0 


. 343 
. 061 
0 
0 

.037 
1 . 00 
0 
0 
0 


i 

i 


LIST  FACTC9 


1 . 00 
0 

1 . 00 
0 
0 
0 
0 

.716 

0 


0 0 0 

.789  .211  0 

01.00  0 

0 0 0 

01.00  0 

0 1.00  1.00 

0 0 0 

.284  0 0 

0 0 0 


0 0 

0 0 

0 0 

0 1.00 

0 1.00 

1.00  0 

0 0 

0 0 

0 0 


0 0 

0 0 

0 0 

0 0 

0 0 

0 0 1. 

0 0 

0 0 

0 0 
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APPENDIX  G 

A SAMPLE  OF  SYSTEM  OUTPUT 
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THE  FOLLOWING  IS  THE  CONTRACTOR 

A-l  CONTRACTORS 
A 1-04-01-302-1246 
RFLl.  II FL  I /TEXT  RON 
PO  R ()  X 48? 

FORT  WORTH  TEXAS  7610  1 
ATTN  DMS  A 0 H I N / R HURL  HURT 

At-M-ni-3  3 3-7187 
HOEING  vfrtoi  CO 
PO  nox  1 6 8 5 7 
PH  1 1.  A DELPHI  A PA  19142 
ATTN  OHS  ARM  M/SP40-11 

Al-04-11-1 01 -1 576 
A V C 0 LYCOMING  OIV 
580  SOUTH  MAIN  ST 
STRATFORD  CT  06497 
ATTN  OHS  ADMINISTRATOR 


ADDRESS  LIST 

»*••**«*•*««« 


A 1 -04-01-332-5232 
HUGHES  H ELI/S  II MM  A CORP 
CENTINFLA  AVE  A TFALF  ST 
CULVER  CITY  CA  90230 
ATTN  DMS  ADMINISTRATOR 

Al-04-01-334-11 81 
n F E C It  AIRCRAFT  CORP 
9709  FAST  CENTRAL 
WICHITA  KS  67701 
ATTN  DMS  ADMINISTRATOR 

At -17-01-789-5956 
LOCKHEED  CALIFORNIA  CO 
A D l V OF  LOCKHEED  A C F T CORP 
Htl  R RANK  CA  91570 
* A T T N DMS  ADMINISTRATOR 
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A-l  PROGRAM  FACTORS 

1.000 

0 . 

n . o 8 4 

0 . 

0 . 0 0 ft 

0 , ?86 

1.000 

0 . 

0 , 46? 

n . o i n 

0 . 

0 . 

0.461 

0 . 4 ft  9 

0 . 9 5 9 

n . 

0 . 

1.000 

o . 

0.009 

0,094 

0.045 

0.165 

0.037 

o . o n 3 

0 . 

0 . 

A - 2 PROGRAM  FACTORS 

1.000 

0 . 

0.115 

0.069 

0.201 

0.094 

1.000 

0 . 

0.375 

0.146 

0 . 

0 . 

0.204 

0.592 

0 .500 

0.250 

0.117 

1.000 

0 . 

0.060 

n .062 

0.011 

0.075 

(J . 

0.012 

0 . 

0 . 

n . 

0 ♦ 1 2 4 

n . 

o . 

0*063 

1.000 

0.001 

0 . 

0 . 


0 . 

0.205 

0 . 

0.012 

0.125 

1.000 

0.011 

0 . 

0 • 


0.461 

0 . 

0 ♦ 

0 . 

0 * 

(J  . 

0 . 

0 • 

0 . 

0.037 

0.029 

0.445 

0 . 

0,029 

0,017 

0 . 

0.463 

0.537 

1,000 

n . o 5 n 

0.902 

0 . 

0 . 

0,041 

0.041 

1.000 

0 . 

0 . 

0 . 

1.000 

0 . 

0.013 

n.ooi 

0 . 

0 . 

0.537 

0 . 0 86 

P . 0 07 

0 . 

0.002 

0 * 

0 . 

o . 

0 . 

ft  . 

0.193 

0.043 

(i . 

n . 

0.037 

n . 

0 . 

0 • 

o . 

0.043 

0.036 

0.321 

o , o ?i 

0.021 

0.068 

0 . 

0.268 

n , 73? 

1.000 

0.204 

0.258 

0.125 

n , 

0.492 

0.117 

1.000 

ft  . 

n . 

0 . 

1.000 

ft . 

0.019 

0,016 

0.011 

0,011 

0.224 

0 . 

0,019 

0.445 

0,016 

o o . o . o . o . 


l 
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FNTFRED  data  fop  contractor  a 


125 , 0 

i n n . o 
2100,0 
l o n n , n 
i n o . n 
1 65n  o . n 
3 . n 
2o  o , o 
21 608.0 


590,0 

2 0 0,0 

3100.0 

2300.0 

6 0 0 .0 

17000.0 
20000,0 
2 0 0,0 
51990,0 


fntfrfd  oata  for  contractor  a 


1 . 0 
2.0 

2000.0 
10  0.0 
6000,0 
0 . 

1 . 0 
o , 

8101,0 


1,0 

2. 0 

2000.0 
10  0,0 
1000,0 
0 . 

5000.0 

0 . 

8103.0 


DOA 3 -12-01-021-6781 


580.0 

180.0 
2100,0 
1810,0 

10  0.0 

16500.0 

3.0 

2 0 0.0 

21803.0 

ROA  1-01-01-33 3 -7187 

l . 0 

2 . 0 

2000,0 
10  0.0 
5 0 0.0 

0 . 

5000.0 

0 . 

7603.0 


580.0 

180.0 
2100,0 
1800.0 

10  0,0 

16500.0 
3,0 

2 0 0 ,0 

21763.0 


1 . 0 
2 , 0 

2 0 0 0 , 0 
100,0 
5 0 0 .0 
0 , 

5000.0 

0 . 

7603.0 
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A ” 1 PROGRAM  COMPUTATIONS. 


1 69?  , 9(1 

0 . 

1 42, ?0 

0 . 

780.43 

n , 

13.54 

4 84 . 1 7 

209,9? 

0 . 

P024.R0 

0 . 

935.46 

0 . 

5R  , 7? 

36.45 

0 . 

0 . 

0 . 

0 . 

l ? 1 3 0 1 7.14 

1PR7541.41 

91660,26 

6021.48 

86212.26 

n . 

0 . 

95579.00 

258283.00 

32606.00 

n . 

77108.14 

005351.67 

8567,57 

0 , 

305540,70 

1413649. ?0 

317000.13 

0 . 

4600785,63 

? 5 7 0 ? , 7 1 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

62.64 

901.04 

0 . 

58.7? 

34.4? 

1076345.83 

1248375.17 

2633009,00 

131650,45 

0 , 

0 . 

3918 .74 

3918.74 

0 . 

0 . 

0 . 

8567571 . 00 

111378.4? 

8567.57 

0 . 

0 . 

7368ll.ll 

59973.00 

o • 

17135.14 

0 . 

0 . 

0 . 

0 . 

1 

4 

TOTAL  QUARTERLY 

4091,6 

3006.2 

2470023.0 

167757.0 

402001.0 
39740  , Q 

10  455339, 0 

2666375.0 


CONTRACTOR  INPUTS  FOR  All  PROGRAMS 

a********************************** 


3047.0 

3020.0 

2291967.0 

168773.0 

397740.0 

39421.0 

9121744.0 

2400553.0 


3299.3 

2752.1 

2101677.0 

101666.0 

366011.0 

36037.0 

10631435.0 

2505806.0 


2664,5 

2669,3 

2131106.0 
150R79 , 0 

356940,0 

34307,0 

9597167.0 

2408231.0 
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